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FOREWORD 


The Martin Marietta Thermal Radiation Analyzer 
System (TRASYS) program marks the first instance that thermal 
radiation analysis has been put on the same basis as thermal 
analysis using program systems such as MITAS and SINDA. As 
with these thermal analyzer programs, the user is provided the 
powerful options of writing his own executive, or driver logic 
and choosing, among several available options, the most desir- 
able solution technique(s) for the problem at hand. In addi- 
tion, many features never before available in a single radia- 
tion analysis program are provided. 

Among the more important are : 

• 1000 node problem size capability with shadowing 
by intervening opaque or semi-transparent surfaces 

' • choice of diffuse, specular or diffuse/specular 

radiant interchange solutions; 

• capability for time variant geometry in orbit; 

• choice of analytically determined or externally 
supplied shadow data for environmental flux cal- 
culations ; 

• form factors and environmental fluxes computed 
using an internally-optimized number of surface 
grid elements, selected on the basis of user- 
supplied accuracy criteria; 

• A general edit capability for updating thermal 
radiation model data stored on tape. 

» A plot package that provides a pictorial repre- 
sentation of the user's geometry. 



TRASYS is indebted to a number of predecessor pro- 
grams in the thermal radiation analysis field. The major con- 
tributors were HEATRATE, MTRAP version 2.0, RADFAC and 
the MRI Computer Program for Determining External Radiation 
absorbed by the Apollo Spacecraft, 

This User's Manual represents a concerted effort to 
document the capabilities of TRASYS and will, hopefully, serve 
the twofold purpose of instructing the user in all applications 
and serve as a convenient reference book that presents the 
features and capabilities in a concise, easy -to- find manner. 

This User's Manual was generated under NASA Con- 
tract NAS9-13033, "Development of a Thermal Radiation Analysis/ 
Heat Rate Computer Program System." The technical monitoring 
for this program was provided by Mr. Robert A. Vogt of the 
Thermal Technology Branch of the Structures and Mechanics 
Division, NASA Lyndon B. Johnson Space Center. His helpful 
suggestions during the development of TRASYS are gratefully 
acknowledged. TRASYS would not exist without the superb 
design and programming efforts of Messrs. R. E. Paulson and 
R. J. Connor, who were responsible for generating the 
majority of the TRASYS code. Their efforts are gratefully 
acknowledged. Extensive thanks are also due Mr. G. M. 

Holmstead for his efforts in developing the direct irradiation 
program segment and for the valuable consulting effort he 
performed during the course of program development 
Mr. R. G. Goble is also recognized for his praiseworthy 
efforts in developing the specular-diffuse radiation inter- 
change segment, the orbit plotter segment, and for his 
solutions of many knotty problems that cropped up during 
program checkout. 
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1 . INTRODUCTION 
U WHAT IS TRASYS 2 

The Thermal Radiation Analysis System is a digital 
computer software system with generalized capability to solve 
the radiation related aspects of thermal analysis problems. 

When used in conjunction with a generalized thermal analysis 
program such as the Systems Improved Numerical Differencing 
Analyzer (SINDA) program, any thermal problem that can be 
expressed in terms of a lumped parameter R-C thermal network 
can be solved. The function of TRASYS is twofold. It pro- 
vides : 

a. Internode radiation interchange data; and 

b. Incident and absorbed heat rate data from 
environmental radiant heat sources. 

Data of both types is provided in a format directly usable by 
the thermal analyzer programs . 

One of the primary features of TRASYS is that it 
allows the user to write his own executive or driver program 
which organizes and directs the program library routines 
toward solution of each specific problem in the most expedi- 
tious manner. The user also may write his own output routines, 
thus the system data output can directly interface with any 
thermal analyzer using the R-C network concept. 

Other outstanding features of TRASYS include: 

a. 1000 node allowable problem size, 

b. Time variable problem geometry allowed, 

c. Edit capability allowing the combination or 
separation of multiple thermal radiation models. 

d. A plot package that provides pictorial plots of 
input geometry and orbit data as well as output 
data. 
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The TRASYS system consists of two major components: 
(1) the preprocessor, and (2) the processor library. The 
preprocessor has two major functions. First, it reads and 
converts the user's geometry input data into the form used by 
the processor library routines. Second, it accepts the users 
driving logic written in the TRASYS modified FORTRAN language 
that directs user-provided and/or library routines in the solu- 
tion of the problem. The processor library consists of FORTRAN 
language routines that perform the functions commonly needed 
by the user. The user has, in some cases, a choice of solution 
techniques to perform the same function. 

1.2 SYSTEM STRUCTURE 

In the usual engineering environment, a programmer 
is commissioned to prepare an applications program which is 
subsequently made available to the engineer on a production 
basis. The engineer supplies input data and receives output 
data, as shown in Figure 1-1. 


/ 


' — 1 



DATA IN 


PROGRAM 


DATA OUT 


FIGURE 1-1: BASIC FLOW IN USING AN APPLI- 
CATIONS PROGRAM 

Changes to the logic and equations are difficult 
for the program user to implement conveniently since they 
must be written in a computer-oriented language and submittal 
may be required through a formal programming organization. 
When TRASYS is used, however, the engineer need only call on 
the programmer to supply a standard deck of computer oriented 
"control cards" which will call the various elements of the 
system into action in the proper sequence. The engineer then 
formulates his problem in the engineering-oriented TRASYS 
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language, assembling both data and solution techniques (i.e., 
logic and equations) into this card deck, which then serves 
as the complete input to the TRASYS system, Programmer 
support has been minimized since the bulk of the programming 
effort is already built into the TRASYS preprocessor and pro- 
cessor library. The engineering user need only specify the 
data and the order and type of ''program building blocks" which 
he deems necessary for the solution of his problem, as illus- 
trated in Figure 1-2, 


r 

DATA 


IN 



LOGIC & 
EQUATIONS 



FIGURE 1-2: BASIC FLOW IN USING THE TRASYS 


It should then be evident that TRASYS is much more 
than an applications program. It has, in fact, all of the 
functions and capabilities of a special purpose operating 
system. Since most computers in current use in engineering 
environments already have operating systems built around a 
FORTRAN compiler, TRASYS is designed to augment the existing 
FORTRAN system. Hence, the TRASYS library serves as an exten- 
sion to the existing FORTRAN library, and the TRASYS program 
serves as a preprocessor to (i.e., it preceeds) the existing 
FORTRAN compiler. This augmentation arrangement is illustrated 
in Figure 1-3. 
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When using the full capability of TRASYS, the engineer 
will be required to exert a programming effort of sorts, in a 
language consisting of FORTRAN statements and problem oriented 
TRASYS statements that are FORTRAN related. This, together with 
the wide variety of options and features offered by the system, 
suggests an appropriate word of caution: TRASYS is a comprehen- 
sive system which cannot be mastered overnight. The prospective 
user should not assume that a cursory review of the Instruction 
Manual will lead to immediate success, nor should he assume that 
this manual represents a "cookbook" which will eventually yield 
to a plodding and rigid adherence to each and every rule. In 
presenting instructions on the use of a computer program, it is 
not possible to completely avoid some "cookbook- like" sections; 
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however, every effort has been made to explain the "why" and 
"how" behind each rule, option, and feature, with the intent of 
encouraging the reader to think about and understand TRASYS in 
depth. To help the novice user, an attempt has been made to 
default much of the required input to normally used values so 
that the user need not define them. 
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2. BACKGROUND INFORMATION 

2.1 TYPOGRAPHICAL CONVENTIONS 

2.1.1 Punched Cards 

The reader is (or soon will be) familiar with the 

standard 80 column punched card. It is the user's primary means 
of conveying his input data and logic to TRASYS . 

The program input format design is predicated on mini- 
mum dependence upon data/card column relationships. Most card 
input is covered by one column rule: card columns 1 thru 6 

inclusive comprise the control field and columns 7 through 72 
comprise the data field. Data in the control field are used by 
read routines to identify the type of data to expect in the 
cards' data field. In this manual, the typographical convention 
shown in Figure 2,1 will be used to indicate the card columns 
of interest. (Card columns 1,7 and 12 in this case). 

CC1 CC7 CC1 

2 

FIGURE 2-1: SAMPLE CARD COLUMN DESIGNATIONS 

Throughout the rest of the manual (in contrast to 
Figure 2.1) punched cards will not be identified as figures. 
Whenever material is presented with one or more indicators with 
the format CCX directly above, a punched card is indicated. The 
card data will always be presented as Gothic capitals and/or 
numerals. For example, a card format might be shown as follows: 
CC1 CG7 CC7 

TITLE THIS IS A SAMPLE TITLE CARD 3 0012 

In general, the character directly below the column 
number begins the relevant data field. 

2.2 FILE AND TAPE CONVENTIONS 

Since TRASYS can be implemented on a variety of com- 
puters, it is necessary to refer to data storage media by some 
nomenclature which will be independent of the particular system 
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configuration. FORTRAN "logical unit numbers" are often used for 
this purpose, but were rejected for use in this manual because 
certain installations impose restrictions on the type of physical 
storage device which may be assigned to a given unit. Instead, 
each serial access storage device referenced by TRASYS is given 
a proper name as follows: 

"Purpose TAPE" 

Hence, for example, the processed Data Tape contains the result 
of processing the user's data, and Edit Input Tape contains 
input for the Edit routine. "Tape" is used as part of the name 
only because a reel of magnetic tape is normally associated with 
computer storage. However, any "Tape" may, in fact, be a disk 
file, a drum file, a punched paper tape, or a magnetic tape, at 
the option of the user. Appendix G contains a list of the sys- 
tem-oriented unit designations for each of the "Tapes" mentioned 
in this manual, along with the recommended type of storage device 
to which these units should be assigned. 

On the other hand, when speaking in general about 
saving or retrieving data on or from a serial access storage 
device, the generic term "file" will be used. 

2.3 TERMS AND DATA CONVENTIONS 

The words SUBROUTINE and ROUTINE are generally used 
interchangeably. A program SEGMENT is specific collection of 
routines used to do a specific processing job, such as the cal- 
culation of radiation interchange factors. Generally, the rou- 
tines comprising a Segment are brought into core together, and 
in this sense, a segment can be thought of as an OVERLAY, where 
that concept is applicable to a particular computer operating 
system. INTEGER and FIXED POINT mean the same thing, as do 
REAL and FLOATING POINT. 
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The term HOLLERITH* is applied to strings of alpha- 
numeric characters. The term DATA VALUE, or LITERAL, will be 
taken to mean one element of the set of all integers, floating 
point numbers, and 6-character** Hollerith strings. 

A data value may also be any arithmetic FORTRAN 
expression, which may contain variable names. For example: 

ANAME = 6. 8*4.317/CONl 

is allowed. On the other hand, function calls such as: 

DNAME = 4.7* SIN (1.73) 

are not. The user is also cautioned to avoid mixed-mode 
express ions . 

Integers will be shown in print as a sequence of digits 
preceeded, optionally, by a plus or minus sign. Floating point 
numbers will appear in print as a sequence of digits with a 
leading, trailing, or imbedded decimal point, prefixed, option- 
ally, by a plus or minus sign, and suffixed, optionally, by an 
exponent (to the base 10) denoted as the letter E followed by 
an integer. Hollerith strings of characters will be delineated 
in print by asterisks. These are necessary because blanks are 
valid characters and have a specific binary code (i.e., they do 
not appear on the printed page, but they do appear explicitly 
in the computer) . 


*The Hollerith code is actually a binary code for representing 
alphanumeric characters on punched cards . Other common binary 
codes for representing alphanumeric characters include BCD, 
ASCII, EBDIC , and FIELD ATA . The use of Hollerith to denote 
character strings in general is purely arbitrary. 

**A 6-character string may be stored in one UNIVAC 1108 computer 
word. TRASYS implementations on other computers may provide 
more or less characters per word. In the general case, a 
Hollerith data value would contain as many characters as will 
fit in one computer word. 
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In addition to DATA VALUES, another entity, called an 
IDENTIFIER, REFERENCE FORM, or VARIABLE, will be used (in a 
programming sense). For example, consider the following state- 
ment : 

PI = 3.14 

In this case, 3.14 is a floating point data value, and PI is an 
identifier. Note that PI is different from *PI* which is a 
Hollerith string; 

The data field of any card may be terminated by the 
character $. This terminates any further data read operations 
for that card, and allows the user to enter comment data to 
the right of the $. This may tempt the user to enter a 
comment to the right of it in an otherwise blank card. This 
results in an empty data field and a fatal error. Instead, 
comment cards are formatted in the classic FORTRAN manner, 
that is, with a C in card column 1. Such comment cards may be 
used in any of the data blocks. 
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INPUT DECK 


3 . 1 Introduction to the Input Deck 

3.1.1 Basic Concepts 

TRASYS input decks consist of two fundamental parts. Part I consists of 
the EDIT/CONTROL blocks. These blocks do not participate at all in the defini- 
tion of the mathematical model of the thermal radiation problem. This part pro- 
vides basic program control and provides the user with his edit capability. 

Part II is referred to hereinafter as the TRASYS MODEL. This part is made up 
of the data blocks that describe the user's problem in terms of geometry defini- 
tion and drive logic. The Options, Model Collect, and Source Edit data blocks 
comprise the EDIT/CONTROL portion of the input data. Examples of options data 
are problem title information, edit tape identification, input data punch/no 
punch, list/no list flags and a documentation data list/no list flag. A one 
line (CC7-72) problem title is entered in the options data block. This title 
identifies the MODEL portion of the input deck on any tapes or storage units it 
may be transferred to. This title will also appear on each page of output 
printed by the standard library output routines during execution. The Model 
Collect data block allows the user to collect the input data defining two or 
more thermal radiation analysis models and combine them into one. These models 
must have been previously stored on tape, under model name identifiers. The Edit 
Data block allows the user to do a line by line edit on previously taped input 
data. This input data may be a single model found on tape, or the result of 
the model collect operation. 

The MODEL portion of the input deck consists of the following blocks: 

Documentation Data 
Array Data 
Quantities Data 
Surface Data 

Block Coordinate System (BCS) Data 
Form Factor Data 
Shadow Data 
Flux Data 

Correspondence Data 
Operations Data 
Subroutine Data 

In general, the largest block is the surface data. This block is the 
user's means to describe the geometry of the surfaces that participate in the 
radiant interchange of his problem. Because of the surface data block's size, 
a number of input options, differing in format and concept, are provided. This 
allows the user to choose the most convenient means of defining the different 
parts of his geometry; thus easing his most laborious task. 
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Another type of data that may comprise a large portion of the user's in- 
put may consist of information normally considered to be program output or inter- 
im output. A user may have, for example, a large portion of the form factors 
needed for his solution available from some external source. Using the form 
factor data block, he may enter this data and save much processing time. The 
most frequent application of this type of input is for restarting runs that were 
not completed for one reason or another. Input blocks are available for form 
factor and direct flux data. 

Another data block that allows the user to take advantage of large blocks 
of previously known data is the shadow data block. If shadow factor tables are 
known for a portion of this model, the user may enter them through this block 
and avoid computing them in a shadow factor generating run. 

The remaining data blocks used for general alphanumeric input are the 
correspondence data, array data and quantities data blocks. The correspondence 
data provides the. capability for the user to redesignate node numbers, combine 
a number of nodes into single nodes, or subdivide nodes into subnodes. The 
array data block provides a convenient input point for any array data that the 
user may require. Array data may be integer or floating point data value strings, 
or Hollerith strings. The quantities data block performs the same function as 
the array data block except that single values are entered rather than strings. 

If the user desires, he may enter an extended written description of his prob- 
lem in the documentation block. This will appear at the user's option at the 
beginning of his printed output and will be stored with the remainder of his 
input data on his edit out tape. 

The user's driver logic is entered in the operations data and subroutines 
data blocks. The operations data block consists of a series of calls to user- 
addressable subroutines and computation segments arranged in a series of steps 
that are used for orderly handling of the output data in out-of-core storage. 
Operations block subroutine calls are primarily used to input and update appro- 
priate problem parameters. The calls to the computation segments are what actu- 
ally result in the generation of output data. The operations block subroutine 
calls are in classic FORTRAN format, and the user has at his disposal the FOR- 
TRAN V language for coding specialized operations block logic. ' In the opera- 
tions block, the user has access to all variables he identified in his array 
and quantities data, plus an extensive list of program variables located in 
labeled common. 

The subroutines data block contains FORTRAN language subroutines that are 
either user-called or called by the various computation segments. Routines 
found in the subroutines block bearing the same name as processor library rou- 
tines will compile in place of the library routine, thus giving the user the 
capability to override any program function he desires. 

3.1.2 Basic Structure 


The basic structure of the TRASYS input deck is shown in Figure 3-1. 
This figure illustrates the three EDIT/CONTROL blocks and the 11 MODEL blocks 
in their correct input sequence. Format of the header cards that lead each 
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Figure 3—1 Input D&ck St‘puctu¥*& 
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block is defined in Figure 3-2. The data blocks must appear in the orde.£ shown 
in Figure 3-1. Any block except the options block may be omitted, along wi 
its header card if it is not required for the problem at hand. 

The EDIT/CONTROL blocks are discussed in Section 3.2; the model data 
blocks in Section 3.3 and the operations and subroutines blocks in Section 3.4. 
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EDIT /CONTROL Data Blocks 


3.2.1 Options Data Block 

3. 2. 1.1 Basic Concepts 

The Options data block provides the user with the following capabili- 
ties and operating options: 

1) An entry point for his problem title and model name 

2) Error plot option control 

3) Source deck list/no list control 

4) Source deck punch/no punch control 

5) Go/No-Go option (No Go for edit only, no execution) 

6) Print/no print for edit directives 

7) Relabel edit directives 

8) Print/no print of documentation data block 

9) Read/write directions for all input and output tapes. 

3.2. 1.2 Options Data Block Variables 

Table 3-1 lists the options data block variables together with their 
options, default values, and descriptions. 

3. 2. 1.3 Options Data Block Example 

Figure 3-3 is an example of an options data block. 

3. 2. 1.4 Automatic Node Plots Option 


When surface data input rules are violated to the point where any sur 
face is insufficiently defined to be usable, a fatal error flag is set and the 
run is terminated at the end of preprocessor execution. This is oftentimes 
undesirable because the primary objective of the first run on a newly defined 
model is usually to obtain plots of the problem geometry so that the user can 
visually verify his input. Time and effort can be saved if the surfaces that 
are usable to the node plotter are plotted in spite of the fatal errors. 
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Table 3-1 Options Data Input Detail 


Options Data Input 


DEFAULT 


CC1 CC7 

OPTIONS 

VALUE 

DESCRIPTION 

TITLE 

PROBLEM TITLE IN CARD 
COLUMNS 7-72, INCLUSIVE 

NONE 

PROBLEM TITLE 

MODEL 

= ANY 1-6 CHARACTER 
MODEL NAME 

k k k k 

PRIMARY MODEL NAME 


= NAME1 - NAME 2 

NONE 

CHANGE MODEL NAME FROM NAME1 TO NAME2 

LIST SOURCE 

- ACTIVE 

NONE 

LIST ACTIVE CARDS IN MODEL 


- INACTIVE 

NONE 

LIST INACTIVE CARDS IN MODEL 


- ALL 

NONE 

LIST ALL ACTIVE AND INACTIVE CARDS 


(NOT INPUT) 

NONE 

NO LIST 

PUNCH SOURCE 

- ACTIVE 

NONE 

PUNCH ACTIVE CARDS IN MODEL 


- INACTIVE 

NONE 

PUNCH INACTIVE CARDS IN MODEL 


- ALL 

NONE 

PUNCH ALL ACTIVE AND INACTIVE CARDS 


(NOT INPUT) 

NONE 

NO PUNCH 

NOGO 

(INPUT) 

NONE 

EDIT, BUT DO NOT PREPROCESS OR PROCESS 


(NOT INPUT) 

NONE 

EDIT, PREPROCESS, AND PROCESS 

NO PRINT 

- EDIT 

NONE 

DO NOT PRINT EDIT DIRECTIVES 


(NOT INPUT) 

NONE 

PRINT EDIT DIRECTIVES 

RELABEL 

(INPUT) 

NONE 

CHANGE MODIFIER LABEL TO (AA) AND DELETE 


(NOT INPUT) 

NONE 

ALL INACTIVE CARDS 

DMPDOC 

(INPUT) 

NONE 

PRINT DOCUMENTATION DATA BLOCK 


(NOT INPUT) 

NONE 

NO PRINT 

EDITI 

- TXXXX 

NONE 

DIRECTS EDITOR TO READ EDITI TAPE TXXXX 

EDITO 

- TXXXX 

NONE 

DIRECTS EDITOR TO WRITE EDITO TAPE TXXXX 

CMERG 

- TXXXX 

NONE 

DIRECTS EDITOR TO READ CMERG TAPE TXXXX 

BCDOU 

- TXXXX 

NONE 

DIRECTS PROGRAM TO WRITE BCDOU TAPE TXXXX 

ERPLOT 

(INPUT) 

NONE 

ACTIVATES AUTOMATIC NODE PLOT 


(NOT INPUT) 

NONE 

NO PLOT 

TAPENAME 

- TXXXX 

NONE 

DIRECTS PROGRAM TO READ OR WRITE TAPE 
TXXXX TO GENERAL UNIT TAPENAME* 


*See Appendix G for allowable TAPENAME OPTIONS 


l 
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Figure 3-3 Options Data Block Sample 
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The automatic node plot routines eliminate this problem. This capabil- 
ity functions as follows: when the word ERPLOT appears in the options data block 

and fatal errors result from the surface data, an operations data block is gen- 
erated by the preprocessor. An example of such an operations data block is 
shown in Figure 3-4. This example is for a model that uses three block coordi- 
nate systems. The operations data block generated is then executed and the job 
terminates. Note that four automatically scaled plots are generated for each 
BCS. The views are from the x, y, and z axes, plus a 3-D. Also note that any 
operations data entered by the user is ignored. 

HEADER OPERATIONS DATA 
STEP 1 

CALL BUILDC (BCS1) 

CALL NDAT AS ( 1 , 3HALL , 0) 

L NPLOT 

CALL BUILDC (BCS2) 

L NPLOT 

CALL BUILDC (BCS3) 

L NPLOT 

END OF DATA 

Figure 3-4 Sample Operations Data Block Generated for Automatic Node Slots 

3.2.2 Model Collect and Edit Data Blocks 
3. 2. 2.1 Basic Concepts 

Figure 3-5 is a block diagram of the edit portion of the preprocessor. 
Edit logic flow is shown, together with its relationship with the remainder of 
the program. 

The edit portion consists of two basic parts: 

1) The MODEL COLLECTOR which transfers files consisting of complete 
TRASYS models from one or more input units to a single unit which 
may be output as is or edited. 

2) The SOURCE EDITOR which deletes, inserts, merges, and yanks rec- 
ords and blocks of records to form a model. 

The model collector uses information contained in the MODEL COLLECT 
block (input on cards) to pick files from any number of input units and generate 
from them an EMERG tape. Each input tape may contain one or more TRASYS models, 
in TRASYS source edit format, each identified by a six character model name. 

These units are all in binary mode, having been generated as EDITO tpes. One 
input unit, the EDITI tape, contains the primary model. The EDITI model may be 
passed directly on to the source editor in lieu of the EMERG tape if no model 
collect operations are required. 

The source editor's function is to generate a complete model and pass 
it on to the data and logic preprocessors on the DATAI unit. If desired, the 


3-10 



EDIT! 


' USER \ 

defined! 


'USER \ 
.DEFINED/ 


MODEL 

COLLECT 

CARDS 


MODEL 

COLLECTOR 


| INPUT I 
I PROCESSOR [ 
■ PROGRAMS . 
I (USER ! 

1 PROVIDED) J 


USER T 

, defined) 




/ 



SOURCE 

" / 


( 

EDITOR 


— r OR 

\ ( DATAI J 





DATA 


PRE-PROCESSOR 

1 


PROCESSOR 
DATA FILES 


PROGRAM 

LIBRARY 


LOGIC 

\ 

PRE-PROCESSOR 

I 


LOGIC 

FLOW 

FORTRAN 


FORTRAN 

COMPILER 


PROCESSOR 


Figure 3-5 Edit Segment Logic Flow 


3-11 











user may obtain a permanent copy of the DATAI model on an. EDITO tape. Source 
editing can be done in several ways. The simplest mode is to read the user's 
cards and pass them on as a complete model on the DATAI unit. Alternatively, the 
user supplied CMERG tape can be passed along directly if the CMERG tape is nothing 
more than the user's cards previously transferred to tape. The CMERG unit also 
provides an interface between any user supplied input processing routine(s) and 
the program. In the general edit case, the source-edit cards are used to gener- 
ate an executable model from input data found in card form and in the CMERG, 

EDl'fl, or EMERG units. 

The product of the TRASYS editor is a single TRASYS model. This model, 
designated the primary model, is either a model selected from an EDITI tape, or 
a model in the card input stream. Edits can be in the form of record deletions 
and record insertions. Records for insertions can be obtained from these 
sources: (1) the card input unit (edit data block); (2) the card merge unit - 

CMERG; and (3) the edit merge unit - EMERG. 

The CMERG unit can be single or multifile tape, disk, or drum. The 
data contained on the CMERG unit must be in BCD mode, TRASYS card image form. 

This type of data is usually generated by: (1) card-to-tape by an off-line com- 

puter; (2). TRASYS processor output; or (3) TRASYS input data conversion programs. 

The EMERG unit can be a single or multifile tape, disk, or drum. The 
data contained on the EMERG unit must be in binary mode, TRASYS generated format. 
All EMERG files are generated by an EDITO output file from a previous run, or a 
combination of the files combined onto one EMERG unit by the use of the model 
collector. 

Any record or group of records contained in any file or model on the 
EMERG or CMERG units can be merged into the primary model. Cards to be merged 
into the primary model can be in random order on the EMERG and CMERG unit. Note 
that inserting data from cards in the edit data block is possible only when the 
primary model comes from an EDITI unit. In fact, a Header Edit Data card re- 
sults in an error abort if no EDITI tape is specified in the options data. 

Besides deleting, inserting, and merging cards into the primary model, 
the source editor has the capability of yanking modifications. Each time a 
primary model is edited, the inserted and deleted cards are tagged with a modi- 
fier label and deleted cards are maintained on an inactive status. A "yank" 
provides a simple means of returning a primary model to the condition it was 
before a given modification. For instance, yanking modification "A" will in- 
sert all cards deleted by "A" and delete all cards inserted by "A." More than 
one label can be yanked in one run. Cards deleted by a yank are not maintained 
on inactive status. 
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3. 2. 2. 2 Model Collect Data 


Cards In the model collect data block enable the user to select entire 
models from a single or multifile tape containing TRASYS models and transfer 
them to a single EMERG unit. 


block : 

The following are the 

allowable commands from the model collect data 


Format 

Function 


CC7 



UNIT*, MODNAM 

Selects a model named MODNAM from UNIT 
(Defined in options data block) and writes 
it to EMERG. 


UNIT , M0DNAM1 , CHANGE , 
M0DNAM2 

Same as UNIT, MODNAM, except model is renamed 
on EMERG. 


UNIT, DIRECTORY 

Prints a directory of model names found 

on UNIT 


*Choices are USER1 , USER2 
3. 2. 2. 3 Edit Data Block 


After a valid EDITO tape has been generated, the user will have a 
source listing with edit numbers and edit labels. This tape may then become 
an EDITI or an EMERG tape that can be edited according to the source listing 
using edit directives in the edit data block. Table 3-II presents details of 
the edit data block directives together with format information. Figure 3-6(a) 
is an example of an edit data block. 

3 . 2 . 2 . 4 Edit Operations 

Edit operations are illustrated by the following examples, see Fig. 
3-6(b), 3-6(c), and 3~6(d) : 

1) Primary model on cards, edits directly from cards and from 
EMERG and CMERG tapes . 

2) Primary model on an EDITI tape, edits from cards, EMERG and 
CMERG tapes. 

3) Restart from CMERG after DX calculations. 
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Table 3-II Edit Data Block Input Details 


EDIT DATA INPUT 
(SEE NOTES AT 
END OF TABLE) 

*1, Nl 
OR 


* INSERT 

, Nl 


*D, Nl 
OR 

’''DELETE 

, Nl 


*D, Nl, 
OR 

N2 


DELETE, 

Nl, 

N2 

*C, FI 
OR 

* CMERG, 

FI 


*C, FI, 
OR 

Nl, 

N2 

* CMERG, 

FI, 

Nl, : 

*C, FI, 
OR 

Nl, 

ALL 

* CMERG, 

FI, 

Nl, . 

*E, NAME 


OR 



^EMERGE 

, NAME 

*p 

OR 

* PUNCH 



*P, INACTIVE 

OR 



* PUNCH , 

INACTIVE 

*P, ALL 
OR 

* PUNCH , 

ALL 


*L 

OR 

*LIST 




DESCRIPTION 

THE CARDS FOLLOWING THIS CARD WILL BE INSERTED AFTER EDIT NUMBER -Nl- 

DELETE PRIMARY MODEL CARD WITH EDIT NUMBER -Nl- 

DELETE PRIMARY MODEL CARDS WITH EIDT NUMBERS -Nl- THROUGH -N2- 

MERGE THE ENTIRE CARD FILE -FI- FROM UNIT -CMERG- 

MERGE LINES N2 THROUGH N2 FROM CMERG FILE FI 

MERGE ALL LINES FROM Nl TO END OF C MERGE FILE FI 

MERGE THE ENTIRE EDIT MODEL, -NAME- FROM UNIT -EMERG- 

PUNCH ACTIVE CARDS FROM THE UPDATED MODEL (SEE NOTE 3) 

PUNCH INACTIVE CARDS FROM THE UPDATED MODEL (SEE NOTE 3) 

PUNCH ALL ACTIVE AND INACTIVE CARDS FROM THE UPDATED MODEL 
(SEE NOTE 3) 

LIST ACTIVE CARDS FROM THE UPDATED MODEL 
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Table 3-1 I (eoncl) 


EDIT DATA INPUT 
(SEE NOTES AT 
END OF TABLE) 


*L, INACTIVE 
OR 

*LIST, INACTIVE 

*L, ALL 
OR 

*LIST, ALL 
*S 

OR 

^SEQUENCE 

*Y , AB 
OR 

*YANK, AB 

*Y , AB, AD 
OR 

*YANK, AB, AD 
NOTES : 

1. AN ASTERISK (*) IN CARD COLUMN 1 DESIGNATES AN EDIT CONTROL CARD. 

2. EDIT CONTROL CARDS ARE FREE FIELD FORMATED IN CARD COLUMNS 2 THROUGH 72 WITH BLANK COLUMNS 
AND COLUMNS 73 THROUGH 80 IGNORED. 

3. THIS CARD MAY BE USED IN PLACE OF THE -PUNCH SOURCE- OPTION IN THE OPTIONS DATA BLOCK. IF 
BOTH CARDS ARE INPUT, THIS CARD OVERRIDES THE OPTIONS DATA INPUT. THIS CARD MAY APPEAR ANY- 
WHERE IN THE EDIT DATA BLOCK. 

4. ONLY ONE YANK DIRECTIVE CAN APPEAR IN THE EDIT DATA BLOCK, AND THAT CARD MUST IMMEDIATELY 
FOLLOW THE -HEADER EDIT DATA- CARD. 


DESCRIPTION 

LIST INACTIVE CARDS FROM THE UPDATED MODEL 

LIST ALL ACTIVE AND INACTIVE CARDS FROM THE UPDATED MODEL 


NUMERICALLY SEQUENCE PUNCHED CARDS. THIS CARD MAY APPEAR ANYWHERE IN 
THE EDIT DATA BLOCK 


DELETE ALL CARDS FROM PRIMARY MODEL THAT WERE INSERTED BY EDIT DIREC- 
TIVE -AB- (SEE NOTE 4) 


DELETE ALL CARDS FROM PRIMARY MODEL THAT WERE INSERTED BY SOURCE EDIT 
DIRECTIVES -AB- THROUGH -AD- (SEE NOTE 4) 
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HEADER OPTIONS DATA 

TITLE EDITOR CHECK OUT-EXAMPLE 1 

MODEL - ( ) A T A 1 $ DATA! = MODEL NAME THAT WILL APPEAR ON EDITO TAPE 
EME RG - TXXXX 
CMFWfi ~ I XX XX 
E n I TO - TXXXX 
HEADER SURFACE DATA 

( SURFACE DATA CARDS ) 

C INSERT CARDS 199 THRU 998 F ROM EMERGE MODEL SURFD1 INTO SURFACE 

C DATA BLOCK 

*EMF.PG*SUPF01 * 199*998 

(ADDITIONAL SURFACE DATA CAROS) 

HEADER FORM FACTOR DATA 
C INSERT FILE 9 FROM CMEKG TAPE 

*CMEPG ♦ 4 

HEADER FLUX [)ATft 

(ELEJX DATA CARDS) 

HEADER OPERATIONS data 

C INSERT PART of file 2 FROM CMEKG TAPE 

*C * 2 * 1 *39 
END Of DATA 

Cd) Edit, Operations Example - Primary Model on Cards 


HEADER OPTIONS OATA 

TITLE EDITOR CHECK OUT EXAMPLE 2 

MODEL * nOCKI - 00CK2 S DOCK I = EDITI (PRIMARY) MODEL NAME 
C DOCK? = EDI TO MODEL NAME 

FMERG - TXXXX 
C m F R G - 7 X XXX 
EDIT! - TXXXX 
F D I TO - TXXXX 
HEADER FOIT DATA 
* 0 * 2*8 

(CARDS 10 oE INSERTED IN LIEU OF CARDS 2 THRU ft) 

* 1*11 

(Caros to be inserted after card id 

*1*340 f-CARI?! FOi. LOWING INSERTS CARDS 312 THRU 450 FROM MODEL DOCKA 

C 0 N E ME RG A F I E R C A k 0 34 0 

*E*DOCK A«3i?»450 

*C.3,?.U! % INSERTS CARDS 2 THRU 111 FROM CMEKG FILE 3 

END Or DATA 

(a) Edit Ope ratio-, is Example - Primary Model on EDITI Tape 
Figure 3-6 (coni) 
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HEADER OPTIONS DATA 

TITLE RESTART FROM CMERG EXAMPLE - FIRST RUN 
RTO-T3815 

(DATA BLOCKS AS REQUIRED) 

HEADER OPERATIONS DATA 
STEP 1 

(BUILDC & ADD CALLS AS REQUIRED) 

C COMPUTE FORM FACTORS & WRITE THEM TO TAPE (ONE FILE) 

FFPNCH = 4HTAPE 
L FECAL 

STEP 2 

(ORBIT DEFINITION AS REQUIRED) 

DIPNCH = 4HTAPE 

C FOLLOWING CARD COMPUTES FLUXES FOR 

C 11 POINTS IN ORBIT-WRITES 11 FILES 

C TO TAPE. STEPS 10000 THRU 10010 ARE GENERATED 

ORB GEN INER, 0. 5 360., 10, 0, 0, 0 
END OF DATA 


HEADER OPTIONS DATA 

TITLE RESTART FROM CMERG EXAMPLE - RESTART RUN 
BCDOU - TXXX 
CMERG - T3815 

(DATA BLOCKS AS REQUIRED). 

HEADER E’ORM FACTOR DATA 

*C, 1 $ FORM FACTORS ON FIRST FILE OF CMERG 

HEADER FLUX DATA 

*C, 2 $ FLUX DATA, STEP 10000 

*C, 3 $ FLUX DATA, STEP 10001 

*C, 12 $ FLUX DATA, STEP 10010 

HEADER OPERATIONS DATA 
STEP 1 

(BUILDC & ADD CALLS AS REQUIRED) 

FFPNCH = 2HNO 

L FFC.AL $ READS IN FORM FACTORS FROM FF DATA BLOCK 

CALL GBDATA (1, 4HBOTH) 

L GBCAL 

DIPNCH = 2HNO 

(ORBIT DEFINITION) 

ORB GEN INER, 0., 360., 10, 1, 1, 1 

CALL QODATA (0, 0, 4HTAPE , 2HNO, 0, 0, Q, 4HBOTH, 0) 
L QODATA $ WRITE OUT ABSORBED HEAT DATA TO BCDOU TAPE 

END OF DATA 

(d) Edit Operations Example - Restart from CMERG 


Figure 3-6 (oonc'l) 
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3.3 


Model Data Blocks 


3.3.1 Documentation Data 

Experience has shown that thermal mathmatical models may have an extended 
useful life, especially if tape storage with convenient editing capability is 
available. The usual environment of sketchy and rarely updated documentation 
results in a waste of resources as these long-lived models are passed from anal- 
yst to analyst through project personnel changes. 

As an aid in alleviating this problem, TRASYS users may document their 
efforts in an easily edited and easily accessed form in the documentation data 
block. 

The documentation data block has the following format: 

CC1 CC7 CC7 

2 

HEADER DOCUMENTATION DATA 

Documentation Data Card 1 

Documentation Data Card 2 

Documentation Data Card N 

Documentation data cards have a data field from CC7 through 72 inclusive and 
have no restriction on their alphanumeric content. There is no practical limit 
on the number of documentation cards allowed. 

The control field of documentation data cards is used for carriage con- 
trol. The integer N appearing anywhere in CC1 through 6 of a documentation data 
card results in N lines being skipped before printout of that card. If less 
than N lines are available on a page, the card will begin a new page. If a new 
page is desired, the letter P is placed in CC1. A documentation data printout 
is available at the user's option. The flag DMPDOC appearing in the options 
block results in a printout of the documentation data prior to any preprocessor 
or processor operations. 

3.3.2 Quantities and Array Data Blocks 
3 . 3 . 2. 1 Basic Concepts 


The quantities and array data blocks have the primary function of provid- 
ing the user with a convenient input point for any single variable and array data 
he plans to use during his execution. User constants are defined in the quanti- 
ties data block and arrays in the array data block. A user variable or array 
may take any name not appearing in the program reserve name list or program con- 
trol constant list (see Appendix A). Real, integer, or Hollerith data may be 
entered. Mode agreement is required for real and integer data names. Hollerith 
strings are limited to 6 characters in the quantities data block. 
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The pre-processor provides default values for all program control con- 
stants, so no control constant input is required in the quantities data. Fur- 
ther, all control constants can be redefined in the operations block. Thus, de 
fining control constants at the quantities data block merely has the effect of 
redefining the default values. In general, this practice is not recommended 
because it is easy for the user to forget that he has a non-standard default 
value in his quantities data block when he is defining control constants in the 
operations data block. 

3.3. 2. 2 Rules for Input 


All quantities and array data are entered in the data field (Columns 7 
through 72) of the cards following the appropriate, header card. Specific rules 
for input are: 

1) The general quantity data formats are': 

NAME = DV, (integer) 

ANAME = DV, (real) 

NAME (or ANAME) = DV where DV is a 1 to six character 
string. (Left justified, blank filled) 

2) The general array data formats are: 

NAME = DV1 , DV2 DVN (integer) 

ANAME = DV1 , DV2 DVN (real) 

NAME (or ANAME) = *1 AM A HOLLERITH ARRAY* (Hollerith) 

3) Array data values may be operated as follows: 

NAME = DV1, REPEAT, DV2 , N, DVN+2 (Repeats DV2 N times, 
continues with DVN+2) 

Real array repeat format is identical. 

4) Variable names must consist of 3 to 6 alphanumeric characters, 
with an alphabetic character heading. 

5) Any number of constant or array data values and names may be 
entered in Card Columns 7 through 72 inclusive. Input may 
continue to following cards with no data in the control field, 
provided the fields between commas are complete on each card. 

6) Commas are assumed at the end of each card. Commas may be 
entered at the beginning or end of cards at the user's option. 

The read routine ignores these. 

7) Cards may end but not begin with equal signs. 

8) Empty fields (consecutive commas) are illegal. 

9) Mode agreement between names and data values must be maintained. 
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3 . 3 . 2 . 3 Quantities and Array Data Accessing 


Quantities and array data are placed in common and are thus accessible 
from any user or program-called execution routines. The following are the rules 
for accessing this data: 

1) Quantities data are accessed by name only. 

For example, with 

ANAM = DV, 

in the quantities block, the statement 
VAL = ANAM 

in any execution routine results in DV being stored under the 
name VAL. Mode must be preserved according to the rules of 
FORTRAN . 

2) Array Data is accessed as illustrated by the following 
examples. Each example presumes that the array: 

ANAM = DV1 , DV2 DVN 

appears in the array data block. 

A. SUBROUTINE CALLS 
The statement: 

CALL SUBX (ARG1, ARC 2 , ANAM ARG4 ) 

in any execution routine will pass the entire ANAM array 
to subroutine SUBX. 

B. INTEGER COUNT 

The integer count for any array is accessed through the 
following function call: 

IC = IACT (ANAM) 

C. INDIVIDUAL DATA VALUES 

Individual data values are accessed under the usual rules of 
of FORTRAN. The statement: 

VAL = ANAM (6) 

results in DV6 being stored under the name VAL. 

3) The array data block serves as the only means of reserving 
space for the operations data block. The following example 
illustrates this with: 

ANAMA = DV1 , DV2 , DVN, 

XARRAY = REPEAT, 0., N 
in the array data block, the statements: 

DO 1 1 = 1, IC 
1 XARRAY (I) = ANAMA (I) 

in the operations data block will locate the ANAMA array in 
the first IC words of XARRAY. 
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3.3.3 Surface Data 


3. 3. 3.1 Basic Concepts 

In its present state of development, TRASYS allows the user's geometric 
configuration to be made up of the following geometric shapes, or portions there- 
of: 

(1) Rectangles 

(2) Discs 

(3) Polygons 

(4) Right Circular Cylinders 

(5) Cones 

(6) Spheres 

(7) Paraboloids 

(8) Rectangular Parallelepipeds with 5 or 6 faces 

The surface areas of these shapes are what TRASYS is concerned with. The 
volume within a sphere, for instance, has no bearing on the thermal radiation prob 
lem. Either or both sides of any surface can be defined as "active." Also, any 
surface can be defined as a "shadower" or "non shadower" depending on whether or 
not it is desired that it be considered in shadowing (blockage) calculations. 


Active 



A 



The active side concept is illustrated in the sketch. If form factors 
were computed in this geometry, F^ and would exist because the active sides 

involved are in view of each other. Surface B, however, is ignored by surface A. 

Again referring to the sketch, if surface B is defined as a shadower in 

form factor computations, it will affect the calculation of F , reducing it 

AC 

accordingly. If not entered as a shadower, it would be totally "invisible" from 
surface A. Active side definition has no bearing on a surface's effect as a 
shadower. One further condition must exist for surface B to effect the value of 
F , that is surfaces A and C must be flagged as "can be shaded" surfaces in 

form factor calculations. 


Preceding page blank 
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A similar logic is used in computations of direct irradiation. Surfaces 
defined as shadowers may affect the direct irradiation computed depending on 
direction to the incident flux source. 

Since all surfaces in nature can shade and be shaded, it may seem ques- 
tionable to leave, the shadowing definition up to the user. The reason for this 
is that significant amounts of computation time can be saved by flagging out sur- 
faces that cannot enter into shadowing. 

Any surface may be subdivided into nodal surfaces of equal or unequal 
size. In general, the nodal surfaces chosen should correspond with the isother- 
mal nodes that appear in the user's thermal analyzer model. For various reasons, 
this may not be possible, so a convenient means for combining nodes is provided. 

3. 3.3. 2 Coordinate System Definition 

The surface data is associated with four different, right-handed carte- 
sian coordinate systems: 

Surface coordinate system 

Intermediate coordinate system 

Block coordinate system 

Central coordinate system 

There definitions are as follows: 

Central Coordinate System (.CCS) - The single coordinate system to which 
all vehicle surfaces must be related. This coordinate system is also used to 
orient the spacecraft relative to the sun, planet, or a star. This coordinate 
system is analogous to the body coordinate system used in trajectory tapes. 

Block Coordinate System (BCS) - Any "block" of surfaces that will be 
moved relative to other surfaces during execution must be related to a named 
slock coordinate system. Similarly, if it is desired to activate and/or deacti- 
vate a block of surfaces during the course of the problem, these surfaces are 
related to a separate block coordinate system. 

Intermediate Coordinate System (ICS) - An intermediate coordinate system 
is used when it is convenient to relate a group of surfaces to a coordinate sys- 
tem distinct from any BCS or the CCS. 

Surface Coordinate System (SC S) - Each surface is related to its own SCS 
in a manner that provides a convenient means of input. The surface must then be 
related to the CCS by defining the rotations and translations necessary to make 
the SCS and CCS coincide. 
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3. 3. 3. 3 Coordinate System Hierarchy 


Each surface and hence nodal surface defined in the surface data block 
may undergo three transformations, as follows, before processing begins: 

SCS + ICS -> BCS ■>■ CCS 

where, for example the symbology SCS ■+ ICS indicates a transform form SCS-defined 
3-space to ICS defined 3-space. These transforms must be performed because all 
processing is done assuming surface definition in CCS-defined 3-space. 

Depending on the complexity of each particular surface definition problem, 
the user may or may not concern himself with all the transforms. In the simplest 
case, the user defines a surface in terms of x, y, z coordinates in CCS 3-space. 
The program automatically generates an SCS for each surface and also generates 
the transforms necessary to describe the surface in CCS 3-space. In the most 
complex case, the user defines his surface in SCS 3-space, defines six rotation 
and translation variables for the SCS -* ICS transform, defines six rotation and 
translation variables for the ICS BSC transform, and finally six more variables 
for the BCS -> CCS transform. For cases of intermediate complexity, fox instance 
when an ICS is not needed, the ICS -*■ BCS transform variables will default to 
zero and the user's SCS -+ ICS transform variables will, in reality define an 
SCS •> BCS transform. Further, if neither an ICS or BCS is required, the SCS 
ICS and ICS -> BCS transforms will default to zero, and the user's SCS -> ICS 
transform definition will, In reality, define an SCS CCS transform. 

3. 3. 3. 4 Surface Data Input Philosophy 

The user is provided with two distinct methods of defining his surface. 

He may define a surface relative to an SCS, then relate it to the remainder of 
the surfaces by defining the SCS--CCS translations and rotations; or he may lo- 
cate the surface directly in relation to the CCS by entering the x, y, z coordi- 
nates of up to 15 points on his surface (point method) - His choice of these 
methods depends on the particular surface being considered and its relationship 
to the remainder of the vehicle. In general, it is easy to define a surface 
relative to an SCS. This requires five numbers. It may or may not be convenient 
to determine the translation and rotation data (up to 6 numbers) needed for the 
SCS ICS, SCS -► BCS, or SCS -+ CCS relationship. When the computation of these 
rotation and translation parameters is laborious, the point method is usally a 
better choice. Except for polygons, this requires up to 5 point definitions per 
surface (15 numbers), but generally these points are on the surface involved and 
may be easily scaled from an engineering drawing. 

3. 3. 3. 5 Surface Data Variables 


A total of 54 variable names are reserved for the purpose of surface ;• 
data definition. 

These variable names are defined in Table 3-III. Also tabulated are 
their default values, and the allowable range of each variable, where applicable. 
Figure 3-7 illustrates the relationship of the dimension surface data variables 
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Table S-III Surface Data Input Detail 


RANGE OR 

VARIABLE NAME OPTIONS DEFAULT VALUE DESCRIPTION 


GENERAL DATA: 


SURFN 

1-99999 

NONE 

NNX 

1-999 

1 

UNNX 

N/A 

NONE 

NNY 

1-999 

1 

UNNY 

N/A 

NONE 

NNZ 

1-999 

1 

UNNZ 

N/A 

NONE 

NNAX 

1-999 

1 

UNNAX 

N/A 

NONE 

NNR 

1-999 

1 

UNNR 

N/A 

NONE 

TYPE 

RECT, TRAP 
DISC, CYL 
CONE, SPHER 
PARAB, BOX 5 
BOX6, POLY 

NONE 

IDUPSF 

1-99999 

NONE 

IMAGSF 

1-99999 

NONE 


a. INTEGER ARRAY OF NODE NUMBERS ASSOCIATED 
WITH SURFACE 

b. INITIAL NODE NO. ON SURFACE 
NO. OF NODES IN X DIRECTION 

X-DIMENSION ARRAY FOR UNEQUAL NODE BOUNDARIES 
SAFE AS NNX EXCEPT Y -DIRECTION 
SAME AS UNNX EXCEPT Y -DIRECTION ' 

SAME AS NNX EXCEPT Z-DIRECTION 
SAME AS UNNX EXCEPT Z-DIRECTION 
SAME AS NNX EXCEPT AX-DIRECTION 
SAME AS UNNX EXCEPT AX-DIRECTION 
SAME AS NNX EXCEPT R -DIRECTION 
SAME AS UNNX EXCEPT R-DIRECTION 

SURFACE TYPE 

NUMBER OF PREVIOUSLY INPUT SURFACE TO BE 
DUPLICATED 

NUMBER OF PREVIOUSLY INPUT SURFACE TO BE 
IMAGED 


I 
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Table 3 -II I ( oont ) 


VARIABLE NAME 

RANGE OR 
OPTIONS 

DEFAULT VALUE 

DESCRIPTION 

GENERAL DATA: 




ACTIVE 

TOP, BOTTOM 
BOTH (PLANAR 
SURFACES) 

IN, OUT, BOTH 
(SURFACES OF 
REVOLUTION) 

NONE 

ACTIVE SIDE DEFINITION 
TOP IS +Z FACE OF PLANAR 
SURFACES 

BCSN 

1-6 CHARACTER 
NAME 

ALLBLK 

BLOCK COORDINATE SYSTEM NAME - IDENTIFIES 
SURFACE WITH A BCS 

COM 

N/A 

BLANKS 

30 CHARACTERS OF COMMENT TO DESCRIBE SURFACE 

SHADE 

FF, DI, BOTH, 
NO, ONLY 

BOTH 

FF* 

SURFACE CAN SHADE FLAG 

FF: SHADES IN FORM FACTOR CALCULATIONS ONLY 

DI: SHADES IN DIRECT IRRADIATION CALCULA- 

TIONS ONLY 

BOTH: SHADES IN BOTH FF AND DI CALCULATIONS 
NO: SURFACE CANNOT SHADE 

ONLY: SURFACE IS A SHADOWER ONLY (FF AND DI) 

B SHADE 

FF, DI, BOTH 
NO 

BOTH 

SURFACE CAN BE SHADED FLAG 

FF: CAN BE SHADED IN FF CALCULATIONS ONLY 
DI: CAN BE SHADED IN DI CALCULATIONS ONLY 
BOTH: CAN BE SHADED IN BOTH FF AND DI CALCU- 
LATIONS 

NO: SURFACE CANNOT BE SHADED 
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Table S-III (oont) 


VARIABLE NAME 

RANGE OR 
OPTIONS 

DEFAULT VALUE 

DESCRIPTION 

DIMENSIONS 

DATA; 




AX MIN 


-270. < AXMIN< 450. 

NONE 

MIN. X-ANGLE SURFACES 0F REVOLUTION 

AX MAX 


-270. < AXMAX< 450. 

NONE 

MAX. X-ANGLE 

ZMIN 


N/A 

NONE 

MIN. DIMENSION-?. DIRECTION 

ZMAX 


N/A 

NONE 

MAX. OIMEMSION-Z DIRECTION 

RMIN 


■ N/A 

NONE 

MINIMUM RADIUS - DISC SECTION 

RMAX 


N/A 

NONE 

MAXIMUM RADIUS - DISC SECTION 

R 


N/A 

NONE 

RADIAL DIMENSION 

Z 


N./A 

NONE 

Z DIMENSION 

PI, P2 

PROPERTIES 

ETC. 

DATA: 

PI - P15 

NONE 

CARTESIAN POINT INPUT (GENERAL FORM: 
PN = XN. YN, ZN) 

ALPHA 


0.< ALPHA <1.0 

NONE 

ABSORPTIVITY-SOLAR • 

EMISS 


0.< EMISS < 1.0 

NONE 

EMISSIVITY-IR 

IRANI 


- 1 . 0 < IRANI < 1.0 

0.0 

TRANSMISSIVITY-IR 

TRANS 


-1. 0 < TRANS < 1.0 

0.0 

TRANSMISSIVITY-SOLAR 

SPRI 


0. < SPRI <1.0 

0.0 

SPECULAR REFLECTIVITY - IR 

SPRS 


0. < SPRS <1.0 

0.0 

SPECULAR REFLECTIVITY - S0LAR 
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Table 3-1 II (cant) 


VARIABLE NAME 

RANGE OR 
OPTIONS 

DEFAULT VALUE 

DESCRIPTION 

POSITION DATA: 




TX 

N/A 

0.0 

TRANSLATION DISTANCE FROM ORIGIN OF CCS, 

BCS OR ICS TO ORIGIN OF SCS, MEASURED ALONG 
CCS, BCS OR ICS X-AXIS. 

TY 

N/A 

0.0 

SAME AS TX, EXCEPT ALONG Y-AXIS 

TZ 

N/A 

0.0 

SAME AS TX, EXCEPT ALONG Z-AXIS 

ROTX 

-360. < ROTX<i360. 

0.0 

ROTATION ANGLE TO ROTATE CCS, BCS OR ICS 
INTO SCS; ROTATES ABOUT CCS, BCS OR ICS X-AXIS 
Y TOWARD Z POSITIVE. 

ROTY 

-360. < ROTY ^360. 

0.0 

SAFE AS ROTX, EXCEPT ROTATES ABOUT Y, Z 
TOWARD X POSITIVE. 

ROTZ 

-360.< ROTZ^360. 

0.0 

SAME AS ROTX, EXCEPT ROTATES ABOUT Z, X 
TOWARD Y POSITIVE. 

ICS DEFINITION 
(I CARD) DATA: 




ICSN 

1-99999 

NONE 

INTERMEDIATE COORDINATE SYSTEM NUMBER 

TX 

N/A 

0.0 

TRANSLATION DISTANCE FROM ORIGIN OF CCS OR 
BCS TO ORIGIN OF ICS, MEASURED ALONG CCS OR 
BCS X-AXIS. 

TY 

N/A 

0.0 

SAFE AS TX, EXCEPI ALONG Y-AXIS. 

TZ 

N/A 

0.0 

SAFE AS TX, EXCEPT ALONG Z-AXIS. 
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(oonol) 


VARIABLE NAME 



RANGE OR 
OPTIONS 


DEFAULT 

NAME 

DESCRIPTION 


ICS DEFINITION 
(I CARD) DATA: 









ROTX 



-360. < ROTX £ 

360. 

0.0 


ROTATION ANGLE TO ROTATE CCS OR BCS INTO 
ICS; ROTATES ABOUT CCS OR BCS X-AXIS, Y 
TOWARD Z POSITIVE 

ROTY 



-360. < ROTY _< 

360. 

0.0 


SAME AS ROTX, EXCEPT ROTATES ABOUT Y, 
TOWARD X IS POSITIVE. 

Z 

ROTZ 



-360. < ROTZ £ 

360. 

0.0 


SAME AS ROTX, EXCEPT ROTATES ABOUT Z, 
TOWARD Y POSITIVE. 

X 

R-CARD DATA: 






* 



REFNO 



1-99999 


NONE 


NUMBER OF REFLECTING PLANE SURFACE. 


D-CARD DATA: 









DV 



FLOATING POINT 


1.0 


LENGTH UNIT MULTIPLIER 


N-CARD DATA: 









INC 



INTEGER 


0.0 


SURFACE NUMBER CHANGE VALUE (SURFN = 
SURFN + INC) . 


*If the surface has 
or set to "NO," the 
ular surfaces must 

a component of specular reflectance 
flag is reset to "FF." If the flag 
be shadowers in the FF segment.) 

and the can-shade flag is either unspecified 
is set to "DI" it is reset to "BOTH." (Spec- 




EXAMPLE : PI- 2.C, 3.0, 0.0 


RECTANGLE 


scs 

METHOD 


Z 


NOTE: ONE CORNER MUST BE ON THE Z 

AXIS, WITH RECTANGLE 
PARALLEL TO X-Y PLANE. 

= 2 

NNY 2 


Y 



POINT 

METHOD 


Z EXAMPLE: PI = XI, Yl, Z1 



Figure 6-7 Surface Geometry Definition 


3-31 



TRAPEZOID 



POINT 

METHOD 


Z 



POINTS ARE NUMBERED CCW 
AROUND FIGURE AS VIEWED 
FROM ACTIVE SIDE WHEN 
ACTIVE = TOP. P1-P4 
MUST BE SHORTER THAN 
AND PARALLEL TO P2-P3. 


Figuve 3-7. (oont) 


3-32 



scs 

METHOD 


/< 


v v / 

X.. axmin 


AXMAXX 


— SCS ORIGIN 
EXAMPLES : 

DIMENSIONS = 12., 10., 15., 25., 45., ( STANDARD) 
OR: Z =12. \ 

RMIN =10. / 

RM/VX =15. ALTERNATE 

AXMIN = 25. 

AXMAX= 45. 


EXAMPLE: (PIE- SECTION) 

Pi = XI, Yl, Z1 
P2 = X2, Y2 , Z2 
P3 - X3 , Y3 , Z3 
P4 * X4, Y4, Z4 
NOTE: 

PI = DISC CENTER, P2 , P3 , & P4 
ENTERED CCW, AS SEEN FROM 
ACTIVE SIDE 




X -v_ ccs » B(;s > 0R lcs origin. 

P0INT / ' EXAMPLE: ANNULAR SECTION) 

METHOD / PI * XI, Y1 , Z1 

/ P2 = X2, y 2 , Z2 

,/ P3 - X3, Y3 , Z3 

/ P4 - X4, Y4, Z4 

x P5 = X5, Y5 - 25 

NOTE : PI, P3 , 14, AND P5 NUMBERED CCW ABOUT SURFACE AS VIEWED FROM ACTIVE SIDE, 

WHEN ACTIVE = TOP. LINE P2-P1 MUST BE PERPENDICULAR TO LINE P4-P1 AND ALL 
OR PART OF THE ACTIVE SURFACE MUST LIE BETWEEN P2 AND P4 . 


Figure 3-7. (eont) 
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CYLINDER 


scs 

METHOD 


Z 



POINT 

METHOD 


Z 



NOTE: SURFACE GENERATED FROM P2 TO P3 CCW ABOUT AXIS 

AS VIEWED FROM Pi END. 

Figure 3-7. (oont) 
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Z 


POINT 

METHOD 



NOTE : SURFACE GENERATED FROM P2 TO P3 » CCW ABOUT AXIS AS VIEWED FROM PI TOWARD APE)! 

Figure 3-7. (aont) 
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SPHERE 


SCS 

METHOD 


SC 

ORIGIN 



POINT 

METHOD 


FOUR POINT 
INPUT 


O— P4‘, 




P4-0 


FIVE POINT INPUT 


CCS, BCS, OR ICS ORIGIN 

Y 


NOTES : P2 AND P3 LIE ON A "LATITUDE” LINE. SURFACE IS 

GENERATED FROM P2 TO P3 , CCW AS VIEWED FROM PI 
TOWARD P4 , P3 AND P5 LIE ON A "LONGITUDE" LINE. 

A COMPLETE SPHERE IS GENERATED FROM 3 POINTS: 

PI - NORTH POLE, P2 - CENTER; P3 - POINT ON EQUATOR 
WHERE NODE GENERATION BEGINS. 

'inure 3-7. (aont) 



CIRCULAR PARABOLOID 


z 


scs 

METHOD 



FOUR POINT INPUT 


POINT 

METHOD 



FIVE POINT INPUT 



-P2 


CCS, BCS Oft ICS ORIGIN 


EXAMPLE : 



PI 

= 

xi. 

Yl, 

Z1 

P2 

= 

X2, 

Y2 , 

Z2 

P3 

= 

X3 , 

Y3 , 

Z3 

P4 

= 

X4, 

Y4, 

Z4 

P5 

= 

X5, 

Y5, 

Z5 


(APEX OF PARABOLOID), 


NOTE: PI AND P4 DEFINE AXIS OF REVOLUTION. 
SURFACE IS GENERATED FROM P2 TO P3 
CCW AS VIEWED FROM PI TOWARD P4 


Figure 3-7. (cont) 
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FIVE AND SIX SIDED 
BOXES 


NOTE: ACTIVE = BOTH 

NOT ALLOWED 


scs 

METHOD 


NOTE: Face in X-Y Plane Deleted 

for 5-sided box 



POINT 

METHOD 


Figure 3-7. 


Z 



NOTE: PI, P2 AND P3 MUST ALL LIE ON SAME FACE OF 

FIGURE, WITH F4 DIAGONALLY OPPOSITE PI. FACE 
CONTAINING Pi, P2 and P3 DELETED FOR 5-SIDED BOX. 

( aontj 
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N -SIDED POLYGON 


Z 


POINT 
METHOD 1 



X NOTE: POINTS ENTERED IN CCW DIRECTION ABOUT FICURE AS 
VIEWED FROM ACTIVE SIDE WHEN ACTIVE = TOP. 

MAXIMUM N ALLOWED IS 15. TRIANGULAR NODES ARE 
GENERATED IN THE ORDER INDICATED BY THE CIRCLED 
NUMBERS . 


POINT 
METHOD 2 


Figure 5-7. 


CCS, BCS OR ICS 
ORIGIN 


EXAMPLE: 


PI = XI, 

*1, 

Z1 

P3 - X3, 

Y3, 

Z3 

P2 - X2, 

Y2, 

Z2 

P4 - X4, 

Y4, 

Z4 

^ P5 



P5 = X5 , 

Y5, 

Z5 




NOTE: POINTS MUST BE NUMBERED IN 

CONSECUTIVE ORDER ABOUT FIGURE, CCW 
AS VIEWED FROM ACTIVE SIDE, WHEN 
ACTIVE = TOP. TRIANGULAR NODES ARE 
GENERATED IN THE ORDER INDICATED 
BY THE CIRCLED NUMBERS. 


(ooncl) 


3-39 



to each geometric figure. Both the surface coordinate system methods and point 
methods of input are shown. A careful study of Table 3-III and Figure 3-7 will 
pay dividends to the new TRASYS user. 

The variables found in the surface data block can be grouped as follows 

- general data 

- dimensional data 

- properties data 

- position data 

- ICS definition data 

A summary of the function of each data group follows: 

General data - this "catch all" data group is used to define: 

1) node identification numbers 

2) surface type (disc, sphere, etc.) 

3) active side information 

4) shadowing information, and 

5) nodal breakdown and dimension information. 

Dimensional data - This data group is used to define the desired boundaries of 

the geometric surfaces and portions of same. 

Properties data - This data group is used to define the optical properties of 

the surfaces. Properties allowed are diffuse solar absorpti- 
vity and transmissivity, diffuse infrared emissivity and 
transmissivity, specular solar reflectivity, and specular 
infrared reflectivity. 

Position data - These data are the six rotation and translation variables nec- 
essary to locate an SCS relative to an ICS, BCS or CCS. 

3. 3. 3. 6 Nodal Surface Identification 

When a surface is subdivided into nodal surfaces, the user has the 
option of numbering the nodal surface consecutively, beginning with the identi- 
fication number he used for the surface, or arbitrarily, using a node number 
array. In either case, he must understand the scheme used by TRASYS to identi- 
fy nodal surfaces. Figure 3-8 illustrates this process with examples of sur- 
faces with single and dual active sides. 

The user will no doubt quickly discover that Figure 3-8 shows node num- 
bering schemes that are related to the SCS-referenced method but have no rela- 
tion to the CCS-ref erenced point method. The number scheme functions with 
point input, however, because the first step in processing a point-defined sur- 
face is to provide it with an internally generated SCS. Once this is done, the 
node numbering scheme can proceed. It is necessary, therefore, for the user 
to understand how the internally generated surface coordinate system relates 
to his point input. This is illustrated for each surface type in Figure 3-9. 
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YMIN , ZMIN , RMIN 



Figure 3-8 Node Generation Order 


SINGLE ACTIVE 
SIDE. (VIEW FROM 
OUTSIDE OR TOP) 


BOTH SIDES ACTIVE. 
ODD NUMBERED NODES 
ON INSIDE OR BOTTOM 
EVEN NUMBERED NODES 
ON OUTSIDE OR TOP. 
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z 


z 



OR OUTSIDE 



ACTIVE = BOTH: ODD ' 
NUMBERED NODES INSIDE. 
EVEN NUMBERED NODES 
OUTSIDE. 



ACTIVE = TOP 

OR BOTTOM ACTIVE = BOTH: EVEN 


NUMBERED NODES ON TOP 
(+Z) SIDE, ODD NUMBERED 
NODES ON BOTTOM 

Figure 3-8. (oonal) 
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An understanding of Figure 3-8 and 3-9 should enable the user to properly 
number his nodal surfaces when using point input to define the surface. 

The user should realize that the generalized node breakdown schemes in- 
volving NNX, NNY, UNNX, UNNY , etc., do not. pertain to the BOX and POLYGON sur- 
face types where a fixed node generation scheme exists. If a user desires to 
subdivide, the faces of a box, the faces must be input as rectangles. Subdivi- 
ding a polygon requires entering the individual triangles desired. The user may 
wonder at the capricious-looking node breakdown that results from his polygon 
input. This occurs because shadowing solutions exist for triangles, but not 
polygons. After processing, the polygon's triangles are combined for output 
as one node, but the user should be aware of this subdivision process in order to 
avoid duplication of node numbers. 

3. 3. 3. 7 Dimensional Units 


Nodal areas are carried in data storage for direct irradiation and radi- 
ation conductor calculations. For this reason, surface data length inputs must 
be in feet, the standard TRASYS length unit. Convenient means of units control 
are provided by D-cards (Ref 3.3.3.12). 

In regard to the surface data block, the user needs to remember that all 
the linear dimensions he uses in defining the surfaces of his model must be in 
feet (after D-card manipulations) and that all angular measurements must be in 
degrees (and decimal fractions of degrees) of arc. 

3.3.3. 8 Properties Data 

In its present state of development, TRASYS is restricted to the assump- 
tions that all surfaces are "grey”, all surfaces emit diffusely, and all surfaces 
reflect with diffuse and specular components of reflectance. 


a TR + 


IR 


P IR + X IR 


1.0 


a +p +p s +T.=1.0 

s s s s 


where : 


a = diffuse absorptivity 
p = diffuse reflectivity component 
P s = specular reflectivity component 
t = transmissivity 
subscripts : 

IR = infrared waveband 
s = solar waveband 
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It might be observed that since semitransparent materials and specular 
surfaces are allowed, the form factors are not, in general, surface property in- 
dependent but a function of the transmissivities and specular components of 
reflect ivity . 

Material transmissivity plays a part in form factor calculations where 
blockage by a semitransparent surface is involved. The assumption made for these 
calculations is that any. element to element configuration factor with an inter- 
vening semitransparent surface is multiplied by a shadow factor equal to the 
value of the blocking surface's transmissivity. This is a reasonable approach 
for thin intervening bodies. 

Since only surfaces, rather than bodies, are used in TRASYS calculations, 
only one face of the semitransparent body will "count" as a shadower. If two 
surfaces are input for one body, the square root of the transmissivity can be 
used as the shadow factor to avoid having the shadowed configuration factors 
erroneously multiplied by the square of the transmissivity. In this case, the 
user enters a negative transmissivity value. This is detected by the program 
and the absolute value of the square root of the transmissivity used as the 
shadow^ factor. 

Specular reflectivity comes into play in the form factor calculations 
as a result of the imaging techniques used and the definition of an "image fac- 
tor" as described in Appendix 1. 

It might be noted that the presence of semitransparent surfaces where 

u f i and/or the presence of specular surfaces where p® f ps results in 
1 K s i R S 

separate form factor matrices for the infrared and the solar wavebands. Both of 
these matrices are carried in program data storage and are printed in the stan- 
dard output. 

3. 3. 3. 9 Surface Data Format 


3. 3. 3.9.1 Control Field Formats 


Four different types of cards containing control field information are 
allowed in the surface data block. The card types are: 

New Surface Card (S Card) 

BCS Identifier Card (B Card) 

ICS Definition Card (I Card) 

Constant Definition Card (K Card) 

Comment Card 


S. Cards are used to signal the completion 
and the beginning of a new surface. Their general 


of the input for a surface 
format is : 


c;c i 
s 


CC7 CC7 

3 

Any Surface Data Card ID Information 


Preceding page blank 
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Any data encountered beginning with an S card and ending with the card preceding 
the next S card is presumed to apply to a single surface and is defined as a sur 
face description. If insufficient data to define a surface is found between two 
S cards, either default will be supplied or an error message results. If redun- 
dant data is entered an error message results. 

B cards are used to identify surfaces with the desired block coordinate 
system. Their general format is: 

CC1 CC7 CC7 

3 

BCS Block Coordinate System Name Card ID 

All surface descriptions encountered between two B. cards will be keyed 
to the BCS name found in the leading B card. Any surfaces not preceded by a B 
card will be automatically keyed to a block coordinate system named ALLBLK. 

BCS ALLBLK has zero rotation and translation parameter values. That is, it coin 
cides with the CCS. 

I cards are used for definition of intermediate coordinate systems. 

Their general format is: 

CC1 CC7 CC7 

3 

I Intermediate Coordinate System Data Card ID 

Continuation cards are allowed for ICS definition. In other words, all 
information encountered between an I card and another card containing informa- 
tion in CC1 (except for comment cards) is presumed to pertain to a single ICS. 

NOTE: A general surface data deck structure rule is that all I cards must pre- 

cede all S cards . 

K cards are used for definition of user constants referred to in surface 
data. Their general format is: 

CC1 CC7 CC7 

3 

K Constants Data Card ID 

Continuation cards are allowed for constants definition. All cards be- 
tween a K card and the next card with data in CC1 (excepting comment cards) can 
be thought of as a data subblock that defines surface data constants. 

NOTE : A general surface data deck structure rule is that all K cards must pre- 

cede all S cards . 

It should be noted that a basic difference exists between K-card con- 
stants and constants entered in the quantities data block. Unlike quantities 
data constants, K-card constants are used for surface data manipulation only, 
and are not available during processor execution. 
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Comment cards, with the following format: 


CC1 


CC7 


C 


Comment Information 


CC7 

3 

Card ID 


may appear anywhere in the surface data block. Another means of entering comment 
information is to delimit a data field (CC7-72) with a $ and enter comment infor- 
mation to the right of it, as follows: 


CC7 

Surface Data $ Comment Data 


CC7 

3 

Card ID 


This may tempt the user to place a $ in the data field of an otherwise blank 
card and enter a comment. This is illegal. It results in a blank data field 
and an error message. 


3. 3. 3. 9. 2 Single Variable Input Format 


Any single variable recognized as surface data may be entered in a card 
data field according to the general format: 


CC7 

NAME1 = DV, NAME 2 = DV, — 


CC7 

2 


NAME1 and NAME2 may be any variable name defined by the surface data variables 
list (Table 3-1), plus in the case of K cards, the names may be as defined by 
the user, limited only by the mode and word length limit of 6 characters. 

Single variable input is the only means available for defining the fol- 
lowing list of surface data variables: 


Note: 


1 . 


TYPE 


NNX 


ACTIVE 


SHADE 
BSHADE 
SPRI I 
SPRS i 


Note 1 


NNY 

NNAX 

ICSN (in a surface description) 

SURFN 

IREFSF 

IDUPSF 

IMAGSF 

REFNO 


Values of either or both of these variables greater than zero re- 


quires : 


NNX = NNY - 1 (one node allowed per specular surface) 

TYPE = RECT, DISC, TRAP, B0X5 , B0X6, or POLY (specular surfaces must be 
planar) 

SHADE = FF or BOTH (specular surfaces must be shadowers in FF seg- 
ment. This flag is reset by the program to "FF" if unspecified 
or specified as "NO" and is reset to "BOTH" if specified as "DI.") 
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All other surface data variables may be defined in convenient ’’short form" array 
formats per subsections 3. 3. 3. 9. 3 through 3.3.3. 9.9. 

3. 3. 3. 9. 3 Intermediate Coordinate System Data Format 


ICS data may be entered in array format as follows: 
CC1 CC7 

I ICSN, TX, TY, TZ, ROTX, ROTY , ROTZ 


CC7 

2 


This array defines the translations and rotations necessary to transform a BCS 
(or CCS into the ICS. The three rotations, ROTX, ROTY, and ROTZ are performed 
in that order. If it is desired to alter the order of the rotations, the fol- 
lowing hybrid format is used: 


CC1 CC7 

I ICSN, TX, TY, TZ, ROTY = DV, 

ROTZ = DV, ROTX = DV 

for rotation first about the BCS Y-axis, second about the BCS Z-axis and third 
about BCS X-axis . 

It should be noted that each ICSN value appears at least twice in the 
surface data block. Once in the I card defining the ICS, and again in each sur- 
face description where an SCS/ICS transform is desired. 

3. 3. 3. 9. 4 Surface Identification Format 


CC7 

2 


A single node surface is identified as follows , in single variable input 

format : 

CC7 

SURFN = DV (Integer) 

If a surface is to be subdivided into several nodes, and they are not to be num- 
bered consecutively, the node number array may be entered according to the for- 
mat : 


CC7 

2 


CC7 

SURFN = DV1, DV2 , DVN 

for an N-node surface. 

3.3. 3.9.5 Properties Data Format 

The diffuse properties data may be defined using the following format: 


CC7 

2 
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CC7 


CC7 

2 


PROP = ALPHA, EM1SS, IRANI, TRANS 

If values for TRANI and TRANS are not encountered, they will default to zero. 

Specular properties data must be input in the single variable format 
(see 3. 3. 3. 9. 2) . 

3 3 . 3 . 9 . 6 Dimensions Data Format 

The dimensions data may be defined using the following format: 


CC7 


CC7 

2 


DIMEN = R, ZMIN , ZMAX, AXMIN , AXMAX 
3. 3. 3. 9. 7 Point Data Format 

The x, y, z coordinates of point data input are defined using the follow- 
ing format: 


CC7 

PN = XN, YN, ZN 


CC7 

2 


N values up to 15 are recognized, depending' on the surface type (Ref. Figure 3-4). 

This is the only format allowed for point data. Single variable defini- 
tions are not allowed. 

3.3. 3.9.8 Position Data Format 


The position data may be defined using the following format: 


CC7 

POSIT = TX, TY, TZ, ROTX, ROTY , ROTZ 


CC7 

2 


This array defines the translations and rotations necessary to transform an ICS, 
BCS , or CCS into tiie. SCS. The three rotations ROTX, ROTY, and ROTZ are per- 
formed in that order. If it is desired to alter the order of the rotations, the 
following format is used: 

CC7 CC7 

2 

POSIT = TX, TY, TZ, ROTY = DV, ROTZ = DV,. ROTX = DV 
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3. 3. 3. 9. 9 Comment Data Format 


A Hollerith string of up to thirty characters may be entered with each 
surface description according to the following format: 

CC7 

COM - * Any Alphameric Data * 

These comments will be passed to the processor and printed with the stan- 
dard surface description output. 

3.3.3.9.10 Node Boundary Dimensions 

When it is desired to generate an unequal node breakdown on a surface, 
it is necessary to define the node boundaries using one or more of the UNNX, 

UNNY, UNNZ, UNNAX and UNNR arrays. Figure 3-10 illustrates this scheme for NNZ“ 
2, NNAX=3. 


CC7 

2 



This example required the following unequal boundary arrays: 

UNNAX = DV1AX, DV2AX 
UNNZ = DV1Z 

These arrays are entered in the surface data block according to the following 
format: 
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CC7 


CC7 

2 


UNNAX = DV1AX, DV2AX 
UNNZ = DV1Z 

The general format is: 

CC7 

UNNX = DV1 , DV2, . . . DVN 
where: N = NNX -1. 

3.3.3.10 DUP Surfaces 


CC7 

2 


The DUP option enables the user to create surfaces by duplicating pre- 
viously input surfaces. The following restrictions and rules apply when using 
the DUP option: 

a) Surfaces to be duplicated must appear in the surface data block 
before the surfaces that are to be created by duping. 

b) Any or all of the surface description variables of the surface 
being duplicated can be changed. 

c) If the surface to be duplicated was input by the point method and 
any changes are to be made in the points, all points must be input 
for the surface being created. 

d) Generated surfaces such as boxes and polygons will be duped in 
their entirety. That is, the individual nodes generated by "box" 
or "polygon" cannot be duped. 

e) Surfaces created by the DUP option may later be imaged (3.3.3.11). 

f) The DUP surface and the surface DUPed must be defined with respect 
to the same ICS, BCS or CCS. 

g) The surface to be duplicated is specified by setting Lhe variable 
IDUPSF equal to the surface number. 

3.3.3.10.1 DUP Option Example 

A sample input deck using the DUP option is shown in Figure 3-11. 

3.3.3.11 IMAGE Surfaces 


The IMAGE option allows the user to create surfaces by imaging pre- 
viously input surfaces in some specified reference plane. The following restric- 
tions and rules apply when using the IMAGE option: 

a) Surfaces to be imaged must appear in the surface data block before 
the surfaces that are to be created by imaging. 

b) Reference planes (imaging planes) in which surfaces are to be 
imaged are special surfaces designated by R-Cards. These cards 
must appear in the same BCS sub-block as the surface(s) being 
imaged and the resultant image surface(s). Each of these planes is 
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2 


h fa ter 
T in-: 

W£Af]£P 

S 


OPTTOMS Oft T A 

juf o°tion sample p c t bl z ^ 
SUPFACE DATA 


HfAnc^ 
S T E° 

L 

END OF 


SUPFM 

= 10 

T*FE 

= $=>H“PF 

R 

= 10 . 

ZHTN 

=-9.39 

ZM Av 

= 9.9° 

A y HIM 

= 0 . 

A X va y 

= 3fi0. 

TX 

= 0 . 

T V 

= 10. 


= ?0. 

ACTIVE 

= 0(JT 

PROP 

=0.2, 0.9 

COM 

=* su pfaq 

SURF M 

= 20 

I POPSF 

= 10 

R 

= 20 . 

ZMTN 

=-19.99 

7 M AX 

= 19.99 

TV 

= -20. 

PROP 

= 0. 9, 0 .o 

COM 

= * DUPLTC 

OPFRATtOMS 

oata 

1 



TALL RUILOC ( ALlSLK) 
NPlOT 
0 ATA 


Figure 3-11 Sample Problem Using the DUP Option 


10 * 
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assigned a unique identification number and is defined by speci- 
fying any three non-colinear points lying on its surface. These 
points are defined with respect to an ICS, a BCS or the CCS. 

c) Generated surfaces such as boxes and polygons will be imaged in 
their entirety. That is, individual nodes generated by "box" 
or "polygon" cannot be imaged. 

d) Surfaces created by imaging cannot be duped. 

e) The image surface, the image plane and the surface imaged must 
all be defined with respect to the same ICS, BCS or the CCS. 

f) The surface to be imaged is specified by setting the variable 
IMAGSF equal to the imaged surface number. The reference plane 
in which IMAGSF is to be imaged is specified by setting IREFSF 
equal to the reference plane number. 

g) When a surface is imaged, the nodes are also imaged resulting 
in a reversed order of node numbering. The active side of the 
surface also follows image rules. Figure 3-12 illustrates these 
phenomena . 

3.3.3.11.1 IMAGE Option Example 

A sample input deck using the IMAGE option is shown in Figure 3-13. 
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NOTE: NODE X+10 IS THE IMAGE OF NODE X 


Figure 3-1?, Imaging of Nodes and Active Side (Image Option Sample Problem) 


3-56 





HEADER OPTIONS DATA 

TITLE IMAGE OPTION SAMPLE PROBLEM 

HEADER SURFACE . DATA 

ICS 100,0.0,10.0,5.0,0. ,80.0,90.0 

S SURFN = 1 


TYPE 

= 

RECT 

ACTIVE 

= 

TOP 

NNX 

= 

3 

NNY 

= 

2 

PROP 

= 

0.5, 0.9 

PI 

= 

3.0, 4.0, 1.0 

P2 

= 

1.0, 6.0, 1.0 

P3 


1.0, 6.0, 4.0 

ICSN 

= 

100 


COM = * SURFACE TO BE IMAGED* 

S . SUREN = 11 

IMAGSF = 1 

IREFSF = 50 

ICSN = 100 

COM = * IMAGE OF SURFACE 1* 


REF NO 

= 50 

PI 

= 0.0, 1.0, 0.0 

P2 

= 0.0, 1.0, 1.0 

P3 

= 1.0, 1.0, 1.0 

ICSN 

= 100 

COM 

= * reference plane* 


HEADER OPERATIONS DATA 
STEP 1 

CALL BUILDC(ALLBLK) 

L NPLOT 

END OF DATA 

Figure 3-13 Sample Problem Using the Image Option 
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3.3.3.12 Linear Dimension Units Control 


Since TRASYS computations cannot be made independent of dimensional 
units, it was necessary to choose a standard units system for compatibility be- 
tween the various computation segments and subroutines. The TRASYS standard 
length unit is feet, which is oftentimes inconvenient when the user is working 
from engineering drawings in inches, or perhaps a metric unit. This problem has 
been eliminated by allowing for dimension change (D-cards) in the surface data 
input. These cards function as follows: when a D-card is encountered in the 
surface data, all linear dimensions in the surface (S-card) data following will 
be multiplied by the floating point data value on the D-card. This holds true 
until another D-card is encountered or until the end of the surface data block. 
All intermediate coordinate systems referenced by surfaces being modified by a 
D-card are also modified by the D-card, This means that the following rule must 
be observed carefully: the linear dimensions on any ICS referred to in a sur- 

face description must agree with the linear dimensions of the pertinent surface 
data, prior to modification by a D-card. 

3.3.3.12.1 D-Card Formats 

The D-Card format is: 

CC1 CC7 

D DV (floating point) 

3.3.3.12.2 D-Card Operations Example 

A surface data block using D-Cards is shown in Figure 3-14 
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HEADER 

TITLE 


HEADER 

D 

S 


S 


S 


S 


D 

N 

S 


S 

P 


s 


HEADER 

STEP 

L 

END OF 


OPTIONS DATA 
CLASSES FOLLY 
MODEL=CLAS 
SHADO=TXXXX 
SURFACE DATA 

1./12. $ FOLLOWING LINEAR DIMENSIONS ARE MULTIPLIED BY 1./12. 

TYPE=CYL , 

SURF N= 201 , 

R=1 . 0 , ZMIN= 3.0, ZMAX=15 . 0 ,AXMIN=0 . 0 , AxlAX=360 . 0 , NNZ=1 , NNAX=1 , 
ACTIVE=OUT , ALPHA=0 . 3 , EMISS=0 . 9 , 

TY=5 . 0 , 

TYPE=SPHER, 

SURFN=301 

R=3 .0 , ZMIN=0 . 0 , ZMAX=3 . 0 , AXMIN=0 . 0 , AXMAX=180 . 0 , NNZ=1 , NNAX=1 , 
TZ=20 . , 

ACTIVE=OUT, ALPHA=0 . 2 ,EMISS=0 . 9 , 

TYPE=CONE, 

SURFN=401 , 

R=1 . 0 , ZMIN=0 . 0 , ZMAX=2 . 0 , AXMIN=0 . 0 , AXMAX=360 . 0 , NNZ=1 , NNAX=1 , 
TZ=17 . 0 , ROTY=180 . , 

TY=5 . 0 , 

AC TIVE=OUT , ALPHA=0 . 9 , EMIS S = 0 . 9 , 

TYPE=C0NE, 

SURFN=501, 

R=3 .0 , ZMIN=1 . 0 , ZMAX=3 .0 , AXMIN=0 . 0 , AXMAX=180 . 0 , NNZ=1 , NNAX=1 , 
TZ=2 . 0 , 

ACTIVK=OUT ,ALPHA=0 . 9 , EMISS=0 . 9 , 

1. $ TERMINATES EFFECT OF PREVIOUS D-CARD 

10 $ REMAINING NODE NUMBERS ARE INCREASED BY 10 

TYPF.=CONE, 

SURFN=701 , 

R=1 .0 , ZMIN=1 . 0 , ZMAX= 2 . 0 , AXMIN=0 . 0 , AXMAX=360 . 0 , NNZ=1 , NNAX=1 , 
TZ=1 .0 , TY=5 . 0 , 

ACTIVE=OUT , ALPHA=0 . 9 , EMISSO . 9 , 

TYPE=TRAP , 

SURFACE=901 , 

P1=0. 707*4 .0,0.707*5.0,4.0, 

P2=0. 707*3. 0,0. 707*3. 0,5.0, 

P3=0. 707*3. 0,0. 707*3. 0,8.0, 

P4=0. 707*5. 0,0. 707*5. 0,6.0, 

ACTIVE=BOTI-I,ALPHA=0.2 ,EMISS=0 .9, 

SURFN =905 ,TYPE=POLY 
Pl=~. 707*5 ., .707*5., 4. 

P2=-. 707*3. , .707*3. ,5 . 

P 3=0. 707*3. 0,0. 707* 3. 0,8.0, 

P4=0. 707*5 . , .707*5 .6 . 

ACTIVE=BOTH ,PR0P= . 2 , .9 
OPERATIONS DATA 
1 

CALL BUILD O(ALLBLK) 

NPLOT 

DATA 


U-Cavd and 11-Card Operations Example 
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3.3.3.13 Node Identification Number Control 


The thermal analysis of large vehicles frequently involves combining 
several TRASYS models into one. The component models will generally have been 
generated independently, perhaps by different contractors, and node/surface num- 
ber duplication in the various surface data blocks will be common. The labori- 
ous task of renumbering nodes to eliminate duplication is alleviated consider- 
ably by use of the N-Card option. When an N-Card is encountered in the surface 
data, all node and surface numbers in the surface (S-Card) data following will 
be changed accordingly to: 

SURFN = SURFN + INC 

where : 


INC is an integer value found on the N-Card. 

This holds true until another N-Card is encountered or until the end of the sur- 
face. data block. Changing SURFN for a surface means that all node numbers asso- 
ciated with that surface are changed, whether automatically generated or input 
as an integer array. 

The following N-Card restriction must be observed: the variable INC 

may take on any positive or negative integer value such that 

1 < SURFN + INC < 99999 

is true for all values of SURFN involved. 

3.3.3.13.1 N-Card Formats 

The N-Card format is: 

CC1 CC7 

N DV (integer value for INC) 

3.3.3.13.2 N-Card Operations Example 

A surface data block using N-Cards is shown in Figure 3-14 of paragraph 
3.3.3.12. 

3.3.3.14 Shadower-Only Surfaces 

In many radiation-dominated thermal analysis problems, there are surfaces 
which are so remote from the region of interest that they do not actively enter 
into the radiation network. These surfaces, however, block incoming radiation 
and the view to space for the nodes of interest. The use of shadower-only sur- 
faces permits the user to account for this blockage without increasing the com- 
plexity of his problem in the region of interest. 
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The following rules apply in the use of shadower-only surfaces: 

a) Shadower-only surfaces provide blockage in both the FF and the 
DI segments. They appear nowhere in the program output of the 
user's problem, however. 

b) Form factors from node i to shadower-only surfaces are summed 

and added to F. . to conserve energy (infers T , . = T.). 

ri shadowers x 

c) Because these surfaces are not active in the problem, neither 
the active side nor the surface optical properties need be 
input . 

d) Shadower-only surfaces are specified by setting the shade 
flag; SHADE = ONLY. 

e) Shadower-only surfaces must be added after all active surfaces. 
It is recommended that shadower-only surfaces be input in 
separate BCS(s) and that these BCS(s) be added last in the 
BUILDC-ADD sequence. (Reference Appendix D, PP D-2, D-3). 


3-61 




3-62 



3.3.4 


BCS Data 


Each block coordinate system named in the surface data block must be 
defined in the BCS data block. This is done according to the following formats: 

CC1 CC7 CC7 

2 

B BCSNAM, TX, TY, TZ, ROTX, ROTY, ROTZ 

If the rotations are not to be performed in the standard x, y, z, order, the 
hybrid format: 

CC7 CC7 

2 

BCSNAM, TX, TY, TZ, ROTZ = DV, 

ROTX = DV, ROTY, = DV 

may be used. Rotations in this example are performed first about Z, then X, 
then Y. 


CC1 

B 


The variable names entered in the BCS data block are defined in Table 
3-IV. Note that these definitions are almost identical to the ICS and position 
data of the surface data block, even to variable names. This creates no ambi- 
guity, because the position and ICS variables are used in the preprocessor only, 
and unlike the BCS variables, are not addressable from the processor routines. 

3.3.5 Form Factor Data 


The form factor data block has two basic functions. It provides an 
entry point for form factor data that is known to the user in advance, and it 
provides for restart of form factor runs that were interrupted. 

From the standpoint of TRASYS operations, information in the form factor 
data block is used by the preprocessor to define two arrays. First it defines 
the node identification number array, and second the form factor request matrix 
is filled. If a form factor data block is not encountered in the input stream, 
surface data information is used to define the node ID matrix and the form fac- 
tor request matrix defaults everywhere to -1.0. 

The form factor request matrix is a triangular matrix of the same form 
as a form factor matrix. It is used for detail direction of form factor compu- 
tations, and finally for storage of the form factors. This is done as follows: 
prior to computing each form factor, the. corresponding value in the request 
matrix is examined; if it is zero or greater than zero, it is presumed to be a 
valid form factor and is left in the matrix unchanged; if less than zero, the 
form factor is computed and stored in place of the negative number. Thus, if 
the request matrix is first initialized everywhere to -1.0, then the known form 
factors (including zeros where the surfaces are known to be "out of sight" of 
each other) are placed in the matrix, form factor computations can proceed with 
no waste motion. 


Preceding page blank 
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Table 3-IV BCS Data Input Detail 

RANGE OR 



VARIABLE NAME 

OPTIONS 

DEFAULT VALUE 

DESCRIPTION 

BCSN 

ANY 6 
CHARACTER 
NAME 

NONE 

BLOCK COORDINATE SYSTEM NAME 

TX 

N/A 

0.0 

TRANSLATION DISTANCE FROM ORIGIN OF CCS 
TO ORIGIN OF BCS, MEASURED ALONG CCS 
X-AXIS „ 

TY 

N/A 

0.0 

SAME AS TX, EXCEPT ALONG Y-AXIS 

TZ 

N/A 

0.0 

SAME AS TX, EXCEPT ALONG Z-AXIS 

ROTX 

-360. < ROTX £ 360. 

0.0 

ROTATION ANGLE TO ROTATE CCS INTO BCS; 
ROTATES ABOUT CCS X-AXIS, Y TOWARD Z 
POSITIVE . 

ROTY 

-360. < ROTY £ 360. 

0.0 

SAME AS ROTX, EXCEPT ROTATES ABOUT Y, Z 
TOWARD X IS POSITIVE. 

ROTZ 

-360. < ROTZ <_ 360. 

0.0 

SAME AS ROTX, EXCEPT ROTATES ABOUT Z, X 
TOWARD Y IS POSITIVE. 



The above discussion applies to a single problem, geometry. If more 
than one geometry exists in a given job, multiple request matrices are involved. 
The form factor data block provides for definition of as many request matrices 
as required. 

At the user's option, the form factor segment will punch the cards, in 
form factor data format, that will define the request matrix necessary to con- 
tinue form factor calculations from any point a run might have been interrupted. 
It is strongly recommended that the user request this punched data when his prob- 
lem will involve a considerable amount of run time. The punched output will in- 
clude a node identification matrix as well as the form factor values. 

3. 3. 5.1 Variable Definitions 


Form factor data block variables are defined in Table 3-V. 


Table 3-V Form Factor Variable Definition 


VARIABLE NAME 

RANGE OR OPTIONS 

DEFAULT 

VALUE 

DESCRIPTION 

INITL 

ANY FLOATING POINT 
NUMBER 

-1.0 

VALUE INITIALLY STORED IN EACH 
REQUEST MATRIX LOCATION 

STEPN 

1-99 

(INTEGER) 

NONE 

OPERATIONS BLOCK STEP NUMBER 

NODE A 

1-99999 

(INTEGER ARRAY) 

NONE 

NODE IDENTIFICATION NUMBER ARRAY 


3. 3. 5. 2 Form Factor Data Formats 

1) INITL is entered according to the following format : 

CC1 CC7 

INITL DV (floating point) 

2) STEPN is entered according to the following format: 


CC7 

2 


CC1 

STEPN 


CC7 

DV (integer) 


CC7 

2 
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3) The NODEA array is entered according to the following format: 


CC1 


CC7 


NODEA NN1 , NN2, . . . NNN, END 


CC7 

2 


for an N-node matrix. The node numbers must be entered in the 
exact order that results from the surface data block and the 
order of BUILDC and ADD calls in the operations data block. 

For this reason, the chances of a user-written node number matrix 
being valid for a large problem are remote. When a node array is 
needed, use Subroutine FFNDF (Ref P3-68) . 


4) Single form factors are entered according to the following format: 


CC7 


NA, NB, DV 

where: NA, NB and DV correspond respectively 

to I, J and the FA product in the 
expression : 


F I J A I F JI A J 


DV 


CC7 

2 


5) Multiple-repeated form factors involving a single node are entered 
according to the following format: 


CC7 

NA, NB, NC, DV 


CC7 

2 


This will result in an FA product equal to DV being entered in the 
row of the request matrix corresponding to node NA, for columns 
corresponding to nodes NB through NC, inclusive. 


6) An entire row of repeated form factors may be entered according to: 


CC7 

NA, ALL, DV 


CC7 

2 


This will result in an FA product equal to DV being entered in 
the entire row of the request matrix that corresponds to node NA. 


3. 3.5. 3 Form Factor Data Block Example 

An example of a form factor data block is presented in Figure 3-15. 
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Figure 3-15 Form Factor Data Block Example 




3. 3.5.4 Equivalent Form Factors 

Many radiation enclosures involve geometry that is symmetric in some 
manner and may, therefore, have many form factors that are exactly equivalent to 
other form factors because the node pairs involved are the same size and shape 
and "see" each other in the same way. The analyst can identify these situations, 
and if he can conveniently enter this information, a considerable amount of com- 
puter time may be saved in form factor computation. This capability has been 
provided, and the following sections describe the required form factor data block 
input . 


3. 3. 5. 4.1 Equivalence Data Formats 

Form factor equivalence data records appear in the form factor data 
block in the following format: 

CC7 

NNI , NNJ , NNK, NNL 

All four variables are integer node numbers. The four numbers are inter- 
preted to mean the form factor from NNI to NNJ is equal to the form factor from 
NNK to NNL. In common with the other form factor data, only one record of four 
words or less with the comma delineators may appear on a card (except for the 
node array) . 

3. 3. 5. 4. 2 Restrictions 


The order in which the node numbers appear on the cards is controlled by 
the order node numbers appear in the node array. Form factors are computed from 
each node to the remaining nodes in the order the nodes appear in the node array. 
When a form factor is equivalent to another, the other form factor must have 
been previously computed so that it may be retrieved and stored. This means 
that the first occurrence in the node array, of either NNK or NNL must precede 
the first occurrence of either NNI or NNJ. 

3 . 3 . 5 . 4 . 3 Punching a Node Array — Subroutine FFNDP 

Writing a node array for a large complex problem is exceedingly prone 
to error, yet a node array must appear in the form factor data block even if it 
only contains equivalence cards. Subroutine FFNDP may be used to obtain a node 
array, punched in form factor data format. This may be done in a preliminary 
run, (when node plots are generated for instance) and the user will then have 
an error-free node array to use with his form factor equivalence data. The call- 
ing sequence is : 

CC7 

CALL FFNDP 
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3.3.6 


Shadow Factor Data 


3. 3. 6.1 Basic Concepts 

Shadow factors are fractional numbers that describe the amount of 
shadowing (blockage) encountered by collimated energy incident on a nodal sur- 
face. A shadow factor of one indicates no blockage, zero indicates 100 percent 
blockage. Blockage results from other parts of the spacecraft or from the 
surface itself, if nonplanar. 

Shadow data consists of tables of shadow factors, one table per node. 
These are 171-point bivariate tables. When the direction to an energy source 
is specified, using clock and cone angles, the clock and cone angles are used 
as arguments in a double-linear interpolation that returns a shadow factor to 
be used in computing direct irradiation according to: 

DI , , , = SF * DI , , 

shadowed nonshadowed 

The 171 points result from all combinations of 19 clock angles and nine cone 
angles, spaced as described in Appendix C. 

The shadow factor data functions to provide a punched card entry point 
for shadow factor data that is known in advance, for restart of interrupted 
shadow factor generation runs, and to direct the updating of an existing shadow 
factor (SHADI) tape. The use of the shadow factor data block is illustrated by 
the following examples: 

1) No shadow factor data block - if no shadow factor data block is 
encountered, it is assumed that no shadow data is known in advance 
and no shadow factor read (SHADI) tape is mounted. All shadow factor 
tables are computed and written on the SHADO (shadow factor output) 
tape as directed by operations block data. Figure 3-16a shows the 
pertinent options data block and operations data block input for 
this example. 

2) Shadow factor data block input, SHADI tape to be. updated - in this 
case, the shadow factor data block must contain at least one model 
name. This enables the program to find the proper set of tables on 
the SHADI tape. Shadow factor tables for selected nodes are updated 
either by direct replacement through TABLE cards, or by recomputa- 
tion through RECOMP cards. In this case, the node number (NODEA) 
array is obtained from the SHADI tape and is not entered in the 
shadow factor data block. Figure 3-l6b shows the pertinent options 
data block, shadow data block, and operations data block input for 
this example. 

3) Restart of a run generating a SHADO tape - in this case, a partially 
complete SHADI tape is mounted. The information on this tape is 
passed directly to the SHADO tape and the remainder is computed. 
Figure 3-16c shows the pertinent options data block, shadow data 
block, and operations data block input for this example. 
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The following is some general information on the subject of shadow fac- 
tor operation. 

1) The SHADI and SHADO tapes have the same format (see Appendix C) . 
SHADI is a read tape. SHADO is a write tape. 

2) The model name on the SHADI tape is for reference in reading SHADI 
data and is not automatically passed over to the SHADO tape. The 
model name on the SHADO tape is defined only through an SFDATA call 
prior to SFCAL execution. 

3) An SFCAL call is the only means of writing a SHADO tape. Thus, if 
an update operation consists only of replacing some tables on a 
SHADI tape with some data input on cards, an SFCAL call must still 
be made in the operations data block. 

4) A shadow factor data block is mandatory whenever a SHADI tape is to 
be read. Thus, this block is required for restart of shadow factor 
generation, shadow factor table modification, and for using the 
shadow tape in computing fluxes. Except for table modification, the 
block will consist only of a header card and a card defining the 
model name. 

HEADER OPTIONS DATA 

SHADO - TXXXX $ TAPE NUMBER REMINDER 
(OTHER DATA BLOCKS) 

HEADER OPERATIONS DATA 
STEP 1 

CALL BUILDC (ALLBLK) 

CALL SFDATA (0,4HMOD2) 

L SFCAL 
END OF DATA 

(cl) Shadow Facto? Operations , No -SHADI- Tape 

HEADER OPTIONS DATA 
SHADI - TXXXX 
SHADO - TXXXX 

(OTHER DATA BLOCKS) 

HEADER SHADOW DATA 

MODEL M0D3, SAVE $ SAVE OPTION SAVES M0D3 FILE FILE ON -SHADO- TAPE 

C TOGETHER WITH M0D4 

NODEA 101 , 102,103 , 104,105 , 110 , 120,130,140 

REC0MP 104 

RE COMP 130 

TABLE 101, C2, REPEAT, 1,. 12,. 5,. 5,. 4,. 4,. 3 
C9. REPEAT,. 5, 19 
HEADER OPERATIONS DATA 
STEP 1 

CALL BUILDC (ALLBLK) 

CALL SFDATA (4HMOD3 , 4HMOD4) 

L SFCAL 

END OF DATA 

(b) Shadow Factor Operations , Updating -SHADI- Tape 
Figure 3-16. Shadow Factor Operations Detail 
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HEADER OPTIONS DATA 

SKADI - TXXXX 
SHADO - TXXXX 

(OTHER DATA BLOCKS) 

HEADER SHADOW DATA 
MODEL MODI 

HEADER OPERATIONS DATA 
STEP I 

CALL BUILDC (ALLBLK) 

CALL SEDATA(4HMODl , 0) $ -SHADO- TAPE FILE NAME DEFAULTS TO 

L SFCAL 
END OF DATA 

(o) Restart of -SHADO- Tape Generation Run 


HEADER OPTIONS DATA 
SHADI - TXXXX 

(OTHER DATA BLOCKS) 

HEADER SHADOW DATA 

MODEL MOD 12 

HEADER OPERATIONS DATA 

STEP 1 

CALL BUILDC(ALLBLK) 

<SALL ADD (CMOD) 

CALL 0RBIT2 (3HMDD,0, ,0. ,0. ,0. ,0. ,0. ,0.) 

CALL DTDT2S(0,0. ,120. ,0. ,180. ,0. , 120. *6080. ,3HPUN) 

C COMPUTE DIRECT FLUXES WITH ANALYTICAL SHADOW COMPUTATIONS 
L DICAL 

(ADDITIONAL ORBIT POINTS) 

STEP 20 

CALL BUILDC (DMOD) 

CALL DIDT2S(0 , 10. ,150. ,120. ,20. , 1. 2 ,75. *6080. ,3HPUN) 

CALL SEDATA(5HMOD12,0) 

L SFCAL 

C COMPUTE DIRECT FLUXES USING SHADI TAPE 
L DICAL 

(ADDITIONAL ORBIT POINTS) 

END OF DATA 

(d) Direot Irradiation Calculations with Shadow Tapes 


MODI 


JT A T IONS 


!N) 


Figure 3-16. 


(concl) 



3.3. 6. 2 Variable Definitions 

Variable Name Description Default Value 

MODEL-*- Configuration name on SHADI None 

tape Hollerith, up to 6 
charac ters . 

NODEA Node number array None 

Notes : 

1) This name defines the configuration name to look for on input tape 
SHADI. If not defined, it is assumed that no SHADI tape is present. 

3. 3. 6. 3 Shadow Data Formats 

MODEL and NODEA are entered according Co the following formats: 

CC1 CC7 

MODEL C0NF1 $ (any Hollerith name up to 6 characters) 

NODEA DV1, DV2 , DV3, — — DVN $ (integer node numbers) 

Instructions to recompute shadow factor tables for a specified list of 
nodes are entered as follows : 

CC1 CC7 

RECOMP DV1 $ (integer node numbers) 

RECOMP DV2 


Note that this input only applies when a SHADI tape is mounted. 

A complete shadow factor table for one node is entered according to: 
CC1 CC7 

TABLE NN, Cl, DV1 , DV2 , DV19 

C2 , DV1 , DV2 , — - DV19 

?! n n ?! 

n »» ii 

! ? n n ! i 

ri u if ii 

C9 , DV1 , DV2 , DV19 
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The mnemonics Cl through C9 refer to the 9 cone angles in a shadow fac- 
tor table. The 19 data values following are for the 19 clock angles in a shadow 
factor table. If a cone number mnemonic is omitted, the 19 data values asso- 
ciated with it default to zero (100 percent shadowed) . If less than 19 data 
values are entered following a CX mnemonics, the data values encountered are 
stored consecutively beginning with Clock 1. For example , if 

CX, DV1 , DV2 , DV3 DVN (N less than 19) 

is encountered, the shadow factors for cone angle X, clock angles 1 through N 
will be DV1 through DVN. The shadow factors for clock angles N + 1 through 19 
will default to zero. 

Repeated data values may be entered using the repeat option for array 
data. For example, the card: 

CC7 

C6, REPEAT, 0.5, 12, REPEAT, 0. , 7 

will enter shadow factors of 0.5 for clock angles 1 through 12 and 0. for clock 
angles 13 through 19 in the cone angle 6 array. 

The user is referred to the description of the shadow factor tape for- 
mat (Appendix C) for an explanation of the way the clock and the cone angles 
relate to the energy source/vehicle orientations used in shadow factor genera- 
tion. 

3. 3. 6. 4 Shadow Factor Operations Examples 

Examples of shadow factor operations are shown in Figure 3-16. 
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3.3.7 


Flux Data 


3 . 3 . 7 . 1 Basic Concepts 

The flux data block has two functions, it provides a punched card entry 
point for direct irradiation fluxes that are known to the user in advance, and 
it provides for restart of direct irradiation runs that are interrupted. 

From the standpoint of TRASYS operations, information in the flux data 
block is used to define the flux data request matrix and a node identification 
array. If a flux data block is not encountered in the input stream, surface 
data information is used to define the node identification matrix and the flux 
request matrix is set everywhere to -1.0. 

The flux request matrix is a 3 X NN array (where NN = number of nodes) 
that is used to direct flux calculations. In the direct irradiation processor 
segment, the three request matrix elements associated with each node are examined 
prior to any calculations. Any element less than zero results in a flux calcu- 
lation. Zero elements and elements greater than zero are presumed to be valid 
flux values and are passed directly to output data storage. The three elements 
associated with each node correspond to solar, albedo and planetary infrared 
radiation, and are input in that order (Remember: Solar, Albedo, Planetary - 
SAP). The variables INITL, NODEA, and STEPN are used in the flux data block to 
perform the same functions as they do in the form factor data block (see Section 
3. 3. 5. 2) . 


At the user's option, the direct irradiation segment will punch BCD cards 
in flux data block format as computations proceed. Thus, in case of interrup- 
tion, the run can be continued by entering the cards in the flux data block. It 
is strongly recommended that the user always use the punch option when genera- 
ting direct fluxes for large problems. The punched output includes a node iden- 
tification array as well as the flux values. 

3. 3. 7. 2 Variable Definitions 


The flux data block contains three variables with names in common with 
the form factor data block. These variables are defined in Table 3-V. 

3. 3. 7. 3 Flux Data Formats 


1) INITL, STEPN, and NODEA are entered using the same formats as the 
corresponding variables in the form factor data block (see Section 
3. 3. 5. 3). 

2) Flux values may be entered in either of two formats. The quadruplet 
format is as follows: 

CC7 CC7 

2 

NODID, DV1 , DV2 , DV3 

101, 232., 114., 99 . * .317 $ example 
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Where: 


NODID = node identification number 

DV1 = incident solar flux 

DV2 = incident albedo flux 

DV3 = incident planetary infra-red flux 

Restrictions: 

One quadruplet only per card. 

All four data values are required. No default logic applies. 

Flux values must be in TRASYS standard units (Btu/hr- ft^) . 

The single value format is as follows: 

CC7 CC7 

2 

NODE = DV1 , SUN = DV2 , ALB = DV3 
PLAN = DV4 
or 

DVl, S = DV2 , A = DV3, P = DV4 
Where: 

DVl = node identification number (integer) 

DV2 - incident solar flux 
DV3 = incident albedo flux 
DV4 “ planetary infrared flux 
Restrictions : 

All data values encountered between NODE values pertain to the 
preceding node number. Undefined data values default to INITL. 

Standard punched card output from the direct flux calculation segment is 
in the single-value format. 
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3. 3. 7.4 


Flux Data Block Example 


An example of a flux data block is shown in Figure 3-17. 
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3.3.8 


Correspondence Data 
Basic Concepts 


3 . 3 - 8-1 


The correspondence data block performs the function of providing the 
user with an input point for the node numbering data necessary to make his ther- 
mal radiation model correspond on a one-to-one basis with his thermal analyzer 
RC (Resistance Capacitance) model. 

Using the information entered in this block, the radiation interchange 
and absorbed heat processor segments perform the necessary calculations to pro- 
vide for energy conservation when the user desires to combine one or more TRASYS 
node surfaces into a single RC model node. 

3.3.8. 2 Variable Definitions 

Correspondence data block variables are defined in Table 3-VI. 


Table 3-VI Correspondence Data Variable Definition 


variable name 

RANGE OR 
OPTIONS 

default 

VALUE 

DESCRIPTION 

STEPN 

1-99 

NONE 

OPERATIONS BLOCK STEP NUMBER 


(INTEGER) 



KOMB 

N/A 

NONE 

HOLLERITH CONTROL FLAG FOR NODE 
COMBINE OPERATIONS 


3.3. 8. 3 Correspondence Data Formats 

1) STEPN is entered according to the following format : 


3-77 



CC1 


CC7 


CC7 

2 


STEPN DV (integer) 

2) The control field flag, KOMB, 
CC1 CC7 

KOMB 


is entered as follows: 

CC7 

2 


3) Node correspondence data is entered according to the following 
format: 

CC7 

NODID = DV1, DV2 , DVN 

NODID is an RC model node number (one to five digits, integer) 
and DV1 through DVN are the TRASYS node numbers that will be 
combined into node NODID. 

3. 3. 8. 4 Correspondence Data Block Structure 

The correspondence data found between a card defining a step number and 
the next step number definition card can be thought of as a correspondence data 
sub-block. One of these sub-blocks is required for each unique geometry of the 
user's problem, assuming node combine operations are required for each geometry. 

For example, if operations block steps 1 through 5 involve the same geometry, 
and steps 6 through 10 another, two correspondence data sub-blocks are required, 
one under STEPN = 1 and another under STEPN =6. The correspondence data operations 
are performed in the order the data is encountered. Because of this, do not utilize 
a RC node number that is identical to a TRASYS node number that appears later in 
the correspondence data. 

It should further be noted that correspondence data only applies to opera- 
tions block steps involving RKCAL (radiation interchange) and QOCAL (absorbed heat 
output) program segment execution. 

3. 3. 8. 5 Correspondence Data Block Example 

An example of a correspondence data block is shown in Figure 3-18. 
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Figure 3-18 Correspondence Data Block Example 
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3.3.9 


Operations Data Block 
Basic Concepts 


3. 3.9.1 


The operations block can be thought of as a digital computer program 
coded in a somewhat modified FORTRAN language. The most powerful statements in 
the block are calls to processor library subroutines followed by ’’link" calls 
to primary processor program segments. Interspersed with these statements might 
be FORTRAN statements used to redefine any of the program variables in the 
reserve name list or control constant list, calls to user-supplied routines in 
the subroutines block, and any branching statements required for direction of 
problem solution logic. The operations data block is converted by the prepro- 
cessor to subroutine ODPROG. This routine serves as the driver for processor 
execution. In general, the conversion is a one-to-one passover of FORTRAN state- 
ments. The segment execution calls (L ca’rds) however, result in the operating 
system dependent language necessary to define an overlay execution. 

An operations block for a problem involving one or more geometry changes 
or more than one point in orbit consists of a series of modified FORTRAN pro- 
grams known as steps. These steps are numbered, for reference in later opera- 
tions, and to allow data from the form factor, flux, shadow, and correspondence 
data blocks to be properly transmitted to the processor. The steps are executed 
in the order encountered, regardless of the step number called out. 

Some operations' block logic restrictions must be observed: each step 

must be serially executable, that is no branching from one step to another is 
allowed. Further, any DO loop containing a program segment execution (L card) 
in its field will not execute properly because the indices are lost when the 
segment is overlaid and removed from core. This, however, does not prevent cod- 
ing the equivalent of a DO loop using idices located in common through being 
entered in the quantities data block. The user should keep in mind, too, that 
multiple executions of any program segments other than NPLOT, OPLOT, PLOT or 
SFGEN within a step will make later data retrieval impossible for that step, 
because provision for storage of only one set of each type of data is provided 
per step (Reference Figure 3-19). If the user is satisfied with the printed or 
punched output obtained during a particular segment's execution, this is no 
restriction. Statement numbers from 1 to 9999 may be used, and each statement 
number must be unique in the operations block. All program control constants 
and variables in common at execution of the operations block (subroutine ODPROG) 
may be found in Appendix A. This list is automatically extended to contain any 
constants and arrays entered in the quantities and array data block. 

3, 3. 9. 2 ORB GEN Option 

Writing an operations data block for the calculation of direct irradia- 
tion and absorbed heats for an extensive series of points in orbit can be a 
tedious, repetitive job. To alleviate this, the ORBGEN option is available. 

When an ORBGEN card is encountered in the operations data block, a package of 
preprocessor routines use the data on the card to generate the operations data 
code necessary to compute direct irradiation, absorbed heats, and print a set of 
heat/rate vs time tables in a standard ST.NDA input format. These tables may be 
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thought of as a default output that prevents loss of computed data. All flux and 
absorbed heat data computed using the generated code is stored in the usual man- 
ner and may be retrieved, manipulated, and output in any way the user desires. 

ORBGEN cards are defined as follows: 


Format 


GCl 


CC7 


ORBGEN TYPE, TRUAN1 , TRUANF, NPT , IAI, IAS, ICOR 

Definitions 


TYPE is a Hollerith variable defining the spacecraft orientation reference and 
pertinent orbit characteristics. Options are: 

INER: Spacecraft is in planetary orbit, inertial (sun or star) oriented. 

PLAN: Spacecraft is planet oriented. 

CIRP: Spacecraft is planet oriented, in a circular orbit. 

NOPL: Spacecraft is in a heliocentric orbit (no planet). 

TRUANI is the true anomaly* at the first point in orbit 0 < TRUANI < 360. 

TRUANF is the true anomaly at the final point in orbit. If TRUANF = TRUANI 4- 360, 
data for a complete orbit will be generated. 

NPT is the number of equal true anomaly increments between the points for which 
fluxes and direct irradiation will be computed. If the planet shadow is not 
encountered by the orbit, NPT + 1 points will be computed. If the planet shadow 
is encountered, NPT + 5 points will be computed, thus describing the flux dis- 
continuities at the planet shadow points. 

IAI is the step number where an infrared grey-body factor matrix is in storage 
This step must precede or be the same step in which the ORBGEN card is entered. 

IAS is the same as IAI, for a solar grey-body matrix. 

ICOR is the step number reference for the pertinent correspondence table 
(entered as STEPN in the correspondence data block) . 

Restrictions 

1) Prior to entering an ORBGEN card, the orbit must be defined through 
a call to ORB IT 1 or 0RBIT2. 

2) Orientation must be defined through a call to ORIENT. 

3) Spin must be defined, if applicable, through subroutine SPIN. If 
spin is not zero, INER and CIRP are not allowable for TYPE. 

4) Problem geometry must be defined prior to any ORBGEN card. 


*Reference Figure 4-7 
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5) If IAI and IAS are input as zero, the operations data generated is 
for fluxes only. No AQCAL calls will result, and no grey-body 
matrices ate required. 

6) Punch/tape flags and accuracy parameters must be defined through 
subroutine DIDT1 or DIDT1S prior to an ORBGEN card. 

7) Because the user does not know the step numbers generated by the 
ORBGEN card, any calls to QODATA or PLDATA immediately following the 
ORBGEN card must use the ALL option. 

3.3.9, 3 Operations Block Formats 

1) Step number cards are punched according to the following format: 


CC1 CC7 

STEP DV (integer) 

Where DV is the integer step number, with the allowable range 1 to 
9999. 

2) Subroutine calls are made in the classic FORTRAN format, with the 
word CALL beginning in CC7. Calling sequences for each user-access- 
ible processor routine can be found in Appendix D, 

3) Computation segment (link) calls are made using the following for- 
mat : 

CC1 CC7 

L SEGNAM 

Where SEGNAM is the name of one of the program segments contained in 
the processor library. Appendix E describes the processor segments 
and their functions. Currently allowable options for SEGNAM are: 
NPLOT, OPLOT , SFCAL , FFCAL , DICAL, GBCAL , RKCAL, AQCAL, QOCAL , and 
PLOT. 


CC7 

2 


CC7 

2 


3. 3. 9. 4 Operations Block Examples 

Operations block ‘ structure and function is illustrated by the listings 
of sample operations blocks in Figure 3-20. 

Sample 1 of Figure 3-20 is a single step operations block that generates 
three node plots of a single geometry. Sample 2 is a two-step operations block 
that generates form factor matrices for two geometric configurations. Sample 3 
is a 17-step operations block that generates direct irradiation data at 16 
points in orbit, including the planet shadow in/out points. A geometry change 
at the shadow in/out points is involved. Sample 4 is a listing of the opera- 
tions data block code generated by an ORBGEN card. 
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SAMPLE 1 


OPERATIONS BLOCK FOR PLOT OPERATIONS 


HEADER OPERATIONS DATA 

step i 

C BUILD GEOMETRY 

CALL BUILDC(BNAMEl) 

CALL ADD(BNAME2) 

CALL ADD(BNAME3) 

C INITIALIZE FOR PLOT 1 

CALL NDATA(1,3HGEN, 0,0 ,A20,1,3 ,2,0. ,0. ,37.) 
C INITIALIZE FOR PLOTS 2 AND 3 

CALL NDATAS(2,3H3-D,0) 

CALL NDATAS (3 , 1HX,0) 

C MAKE PLOTS 1,2 AND 3 

L NPLOT 


C SAMPLE 2 — OPERATIONS BLOCK FOR FORM FACTOR OPERATIONS 


HEADER OPERATIONS DATA 
STEP 1 

CALL BUILDC (BNAME1) 

CALL ADD(BNAME2) 

CALL ADD(BNAME3) 

C SET FF CALCULATION PARAMETERS (PRINTS FF S, DOES NOT PUNCH) 

CALL FFDATA(0. , .2,0,0. ,1.E-3,5HPRINT,0) 

C COMPUTE FORM FACTORS 

L FFCAL 

STEP 2 

C MOVE BNAME2 SURFACES 

CALL CHGBLK (BNAME2 , 0 . ,0. ,25. ,1,2, 3,0. ,45. ,0.) 

CALL BUILDC (BNAME1) 

CALL ADD (BNAME2) 

C CALCULATE FORM FACTORS WITH SAME PARAMETERS AS STEP 1 

L FFCAL 

END OF DATA 


Figure 3-20 Sample Operations Data Blocks 



SAMPLE 3 — OPERATIONS BLOCK FOR TWO GEOMETRY ABSORBED HEAT PROBLEM 


HEADER OPERATIONS DATA 
STEP 1 

CALL BUILDC (BNAME1) 

CALL ADD(BNAME2) 

CALL ADD(BNAME3) 

C SET FF CALCULATION PARAMETERS, PUNCH FFS 

CALL FFDATA(0, .2,0,0 , 1 . E-3 ,0 , 3HPUN) 

L FECAL 

C CALCULATE GREY BODY FACTORS 

CALL GBDATA (0 , 4HBOTH) 

L GBCAL 

C SET RADK CALCULATION PARAMETERS, PUNCH RADKS 

CALL RKDATA(0, 0,0, 1000. 5HSPACE, 999, 0,0,0) 

C COMPUTE RADKS 

L EKCAL 

C DEFINE ORBIT AND LOCATE SUN 

CALL 0RBIT2(3HEAR,0. ,90. ,0 ,0,0 , 120. *6080. ,0.) 

C ORIENT VEHICLE (CCS Z-AXIS TOWARD SUN) 

CALL ORIENT (3HSUN, 1,2, 3,0. ,90. ,0.) 

C SET DI COMPUTATION DATA 

CALL DIDTl S (0 . , 0 , 0 . , 3HPUN) 

C COMPUTE DIRECT IRRADIATION (DICOMP PARAMETERS DEFAULT TO COMPUTE ALL) 

L DICAL 

C SET ABSORBED HEAT CALCULATION PARAMETERS 

CALL AQDATA (1 , 1 , 0 , 0 , 0 ) 

L AQCAL 

STEP 2 

C UPDATE TRUE ANOMALY, SET UP TO COMPUTE PLANET AND ALBEDO FLUXES 

TRUEAN =30. 

CALL DIC0MP(1,0,0) 

L DICAL 
L AQCAL 
STEP 3 

TRUEAN =60. 

CALL DICOMP(1,0,0) 

L DICAL 
L AQCAL 
STEP 4 

TRUEAN =90 . 

CALL DICOMP(l ,0,0) 

L DICAL 
L AQCAL 
STEP 5 

C SKIP OVER PLANET SHADOW 

TRUEAN =270. 

CALL DI COMP (1,0,0) 

L DICAL 
L AQCAL 
STEP 6 

TRUEAN =300. 

CALL DI COMP (1 ,0,0) 

L DICAL 
L AQCAL 
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STEP 8 

G STUFF TRUEAN = 0. VALUES (DUPLICATE POINT) 

CALL STFAQ(360, ,0,1) 

STEP 9 

C COMPUTE DATA AT SHADOW ENTRY POINT (DAYSIDE GEOMETRY) 

TRUEAN =SHADIN - .1 

CALL DICOMP (1,0,0) 

L DICAL 
L AQCAL 
STEP 10 

C COMPUTE DATA AT SHADOW OUT POINT (DAYSIDE GEOMETRY) 

TRUEAN =SHAOUT + .1 

CALL DX COMP (1,0,0) 

L DICAL 
L AQCAL 

C PUNCH AQ,AQAVG VS. TIME TABLES - DAYSIDE 

CALL QODATA (3 HALL , 0 , 2HN0 , 31IPUN , 0 , 0 , 0 , 4HBOTH , 0) 

L QOCAL 
STEP 11 

C BUILD DARKSIDE CONFIGURATION 

CALL BUILDC (BNAMEl) 

CALL ADD (BNAME2) 

CALL ADD (BNAME4) 

C CALCULATE FFS (FFDATA PARAMETERS SET IN STEP 1) 

L FFCAL 

C CALCULATE GREY BODY MATRICES 

CALL GBDATA(0,4HBOTH) 

L GBCAL 

C SET RADK CALCULATION PARAMETERS, COMPUTE RADKS 

CALL RKDATA(0, 0,0, 1000, 5HSPACE, 999, 0,0,0) 

L RKCAL 

C REORIENT TO PLANET 

CALL ORIENT (4HPLAN, 1,2, 3,0. ,90. ,0.) 

TRUEAN =120, 

L DICAL 

C SET ABSORBED HEAT PARAMETERS, COMPUTE ABSORBED HEATS 

CALL AQDATA(11, 11, 0,0,0) 

L AQCAL 

STEP 12 

C UPDATE TRUE ANOMALY, STUFF HEAT DATA FROM STEP 11 BECAUSE ORBIT 

C IS CIRCULAR, PLANET- ORIENTED 

CALL STFAQ (150. ,0,11) 

STEP 13 

CALL STFAQ (180. ,0,11) 

STEP 14 • 

CALL STFAQ (210. ,0,11) 

STEP 15 

CALL STFAQ (240. ,0,11) 

STEP 16 

C STUFF DATA FOR SHADOW ENTRY POINT (DARKSIDE CONFIGURATION) 

CALL STFAQ (SHADIN + .1,0,11) 

STEP 17 

C STUFF DATA FOR SHADOW OUT POINT (DARKSIDE CONFIGURATION) 

CALL STFAQ (SHAOUT - .1,0,11) 

C PUNCH AQ,AQAVG VS TIME TABLES - DARKSIDE 

CALL QODATA (ISARY , 0 , 2HNO , 3HPUN ,0,0,0 ,4HBOTH ,0) 

L QOCAL 
END OF DATA 


Figure 3-20. (oont) 
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STEP 10007 * 

TRUE aN = SHfiOllT + O.l «■ 

IF (T9UFAN.LT.TRUANI .OR. * 

1 TPUFAN.GT.T9UANF) GO TO 90200 

CALL OTCOMP ( 0«4HZFPO* 1 0000) * 

L OTC*l. * 

CALL AOOATA(IANIAS»O»O.0> » 

I. AO CAL » 

90200 CONTINUE * 

STFP 1 0008 * 

TPUFfiM = SH4OUT-0 . 1 * 

IF (TPUEAN.LT. T«UANI .OR. « 

1 TPUEAN.GT .TRUAMF ) GO TO 90300 

CALL OICOMP(OtO» 10000) • ® 

L OTCAL <* 

C«LL AOHATAITAItlAS. 0,0,0) * 

L AQCAL * 

90300 CONTINUE * 

90400 CONTINUE » 

CALL QOPATA (3HALL»0»0» 0,0, 0.0,0. ?> # 

L OOCAL * 

C * 

G*tt* ***#*«*#**■»##*##•»* ORBIT GENERATION ENOS HERE ■*■&****■»»**#**•»■»«***** 

Figure Z-20 (conol) 


3-89 



3-90 



3.3.10 


Subroutine Data Block 


3 . 2 . 10 . 1 Basic Concepts 

The subroutine data block is a collection of FORTRAN language subrou- 
tines supplied by the user in order to extend or modify TRASYS capabilities for 
the problem at hand. These subroutines may be either user-addressable (from the 
operations block) or program-addressable, from the various computation segments. 

Unless the user is creating what amounts to a major rewrite of a compu- 
tation segment, the program subroutines in his subroutine block will bear the 
same name as processor library subroutines. The effect of this name duplication 
is that the user-supplied routine in the subroutine data block is compiled in 
lieu of the processor library subroutine prior to execution. Removal of such a 
routine reactivates the like-named library routine. 

Two deviations from FORTRAN language are defined for the subroutine data 
block. L-cards are used to identify subroutines with particular processor seg- 
ments, and COMMON cards are used to automatically supply program common to the 
subroutines . 

3.3.10.2 Subroutine Block Formats 


Subroutine data block format is Illustrated in Figure 3-21. The segment 
names on the L-cards are strictly order-dependent. The L-cards with their asso- 
ciated subroutines need not all be present, but they must be encountered in the 
order shown. Subroutines in the leading sub-block, with no L-card, are address- 
able only from the operations data block. 

COMMON cards are optional. When used, they serve to insert all labeled 
and blank common lists, associated with the segment named on the preceding L- 
card, into the subroutine. Appendix A-3 defines the variable names in common 
for subroutine ODPROG and the various segments. 

Note that COMMON cards preclude beginning a subroutine block comment 
card with the word COMMON. 

3.3.11 End of Data Card 

The input deck must conclude with an END OF DATA card punched according 
to the format: 

CC1 CC7 

END OF DATA 
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4. 


USER CALLED ROUTINES 


4 . 1 Basic Concepts 

User called routines may be defined as those subroutines 
and computation segments callable fr'om the operations block. 
Unless one or more subroutines of this type are entered in the 
user's subroutine data block, the user callable subroutines 
contained in the processor library comprise the entire list of 
user callable subroutines. Segments cannot be entered in the 
input stream. 

4 . 2 Processor Library 

The user callable processor library routines are listed 
below. In general, they are grouped according to their associa- 
tion with each of the processor computation segments. Page ref- 
erences for the subroutine descriptions in Appendix D are 
included . 

4.2.1 Library Listing of Subroutines 



Name 

Page 

Name 

Page 

General Subroutines 

BUILDC 

D-2 

ADD 

D-3 


CHGBLK 

D-4 

FFNDP 

D-35 


NDUPCK 

D-37 

TAP ELS 

D-36 

Plot Package 

NDATA 

D-5 

ODATA 

D-6 

Subroutines 

NDATAS 

D-5 

ODATAS 

D-6 


PLDATA 

D-21 



Form Factor 

FFDATA 

D-8 

AD SURF 

D-34 

Subroutines 





Direct Irradiation 

0RBIT1 

D-9 

ORB IT 2 

D-10 

Subroutines 

DIDT1 

D-ll 

DIDT1S 

D-ll 


DIDT2 

D-12 

DIDT2S 

D-12 


SPIN 

D-13 

ORIENT 

D-14 


DICOMP 

D-23 

DITTP 

D-24 


DITTPS 

D-24 
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Name 

Page 

Name 

Page 

Radiation Inter- 

GBDATA 

D- 15 

RKDATA 

D-16 

change Subroutines 

GBAPRX 

D-31 

RCDATA 

D- 32 

Absorbed Heat 
Subroutines 

AQDATA 

D-17 

STFAQ 

D-18 

Absorbed Heat 
Output Subroutine 

QODATA 

D-19 



Shadow Factor 
Subroutine 

SFDATA 

D-20 



Data Modification 

MODAR 

D-26 

MO DPR 

D-27 

Sub routines 

MODTR 

D- 28 

MODPRS 

D-29 


MO DSHD 

D-3Q 



4.2.2 Library Listing of Processor Segments 


Plot Package 

NPLOT 

E-2 

OPLOT 

E-2 

Segments 

PLOT 

E-2 



Form Factor 
Segment 

FFCAL 

E-3 ' 



Direct Irradiation 
Segment 

DICAL 

E-4 



Shadow Factor 
Generator Segment 

SFCAL 

E-5 



Radiation Inter- 

RKCAL 

E— 6 

GBCAL 

E-6 

change Segments 

RCCAL 

E-6 



Absorbed Heat 
Segment 

AQCAL 

E-7 



Absorbed Heat 
Output Segment 

QOCAL 

E-8 
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4.3 


Subroutine Descriptions 


4.3.1 Basic Concepts 

The user- callable subroutines in the processor library 
fall into two functional groups. The most numerous group con- 
sists of subroutines used to define the program variables and 
set the logic flags that are required before a computational seg- 
ment can be linked into the processor and executed. Variable 
definition in this manner, as opposed to definition from the data 
blocks, achieves two important goals. First, in any complex prob- 
lem many segment calls are made, necessitating frequent redefini- 
tion of program variables. Under these conditions, data block 
input would be redundant. Second, the subroutine calls, in 
classic FORTRAN format, form natural groups of input variables, 
and as the calls are input serially in the user's operations 
block, he is provided a highly visible presentation of the vari- 
able definitions existing at each stage of his execution. Thus, 
if the user carefully proofreads a listing of his operations 
block, his logic and variable definitions should be error-free. 

If his geometry inputs have been verified using the plot package, 
the user may proceed with some confidence to consume a large 
block of computer time. It is the hope of the TRASYS designers 
that these features will ease somewhat the all too prevalent gar- 
bage in- garbage out syndrome. 

The second group of processor library subroutines per- 
form data handling tasks that eliminate redundant calculations. 

For example, direct irradiation may be required at 15 orbit 
points for a sun-oriented spacecraft. Armed with the knowledge 
that his solar flux is everywhere constant (outside the planet 
shadow), the user may compute the solar flux in Step 1, then use 
the STFAQ routine to retrieve the data from Step 1 and place it 
in data storage for any of the other 14 steps he desires. 

Appendix I) is' composed of summary descriptions of each 
user subroutine. Definitions of each variable in the calling 
sequences are given, together with their default values, where 
applicable. The additional material necessary to use the sub- 
routines is presented in the remainder of this section. After 
achieving a working knowledge, the user should find Appendix D 
sufficient for his quick-reference needs. 

4.3.2 General Subroutines 

Subroutines BUILDC and ADD are used to choose, from the 
various blocks of surfaces in the surface input data, what 
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blocks are to be assembled to create the problem geometry. Also, 
the relative spatial positions of the surfaces and nodes in the 
active blocks may be changed using subroutine CHGBLK. 


4.3.2. 1 Subroutine BUILDC 

Calling Sequence: CALL BUILDC (BCSNAM) 

This subroutine begins the process of assembling the 
geometry desired from the blocks of surfaces in the surface data 
block. BCSNAM is any block coordinate system name found in the 
surface data block. If no BCS is named in the surface data 
block, CALL BUILDC (ALLBLK) will define a geometry consisting of 
the entire surface data block. This call mus t be made for geom- 
etry definitions or after geometry redefinition via subroutine 
CHGBLK. A BUILDC call voids any previous BUILDC and ADD calls. 

4 . 3 . 2 . 2 Subroutine ADD 

Calling sequence: CALL ADD (BCSNAM) 

This subroutine adds another block of surfaces to the 
geometry defined by previous BUILDC and ADD calls. One BUILDC 
call must precede any ADD call in the operations block. 

4. 3. 2. 3 Subroutine CHGBLK 

Calling sequence: CALL CHGBLK (BCSNAM, TX, TY, TZ, IROTX, IROTY, 

IROTZ, ROTX, ROTY, ROTZ) 

This subroutine is used to spatially relocate blocks of 
surfaces by redefining a block coordinate system's location and 
orientation in central coordinate system 3-space. BCSNAM is the 
Hollerith name identifying the block coordinate system being 
changed. Its spelling must be exactly as called out in the BCS 
data block. 

The arguments TX, TY, TZ, ROTX, ROTY, ROTZ are the trans- 
lation and rotation parameters necessary to transform the central 
coordinate system into the block coordinate system in its new 
position. These parameters are further discussed in paragraphs 

3.3.3 and 3.3.4. 

The arguments IROTX, IROTY and IROTZ control the order 
in which the rotations ROTX, ROTY and ROTZ are performed. They 
may take on the integer values 1, 2, or 3. For example, for 
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IROTX = 3, IROTY = 1, and IROTZ = 2, the rotations will be performed 
in the order ROTY first, ROTZ second, and ROTX third. If zero is 
passed for all three arguments, the default values IROTX = 1, 

IROTY = 2, and IROTZ = 3 will result and the rotations will be 
performed ROTX first, ROTY second, and ROTZ third. 

4.3.3 F orm Fac t or Subroutine 


The subroutine FFDATA is used to set the variables and 
control constants required before executing the FFCAL computation 
segment. An FFDATA call prior to all FFCAL executions is not 
mandatory because each FFDATA argument assumes a default value 
(ref Appendix D) . The variables defined by an FFDATA call will 
hold for any subsequent FFCAL executions in the operations block. 

4. 3.3.1 Subroutine FFDATA 

Calling sequence: CALL FFDATA (FFACC, FFACCS, FFNOSH, FFRATL, 

FFMIN, FFPRNT, FFPNCH) 

FFACC is the variable that provides user control of the 
node surface elemental breakdown used for double integration 
form factor calculations. In general, the accuracy of a form 
factor calculation is proportional to the ratio of each elemental 
area divided by the square of the distance between each elemental 
area pair involved. Thus, if the element count for each node 
were chosen so that a given value of this ratio were never ex- 
ceeded, then the error of each form factor calculation would 
similarly be limited. The form factor segment logic provides 
for this, and FFACC is the upper limit allowed for the area - 
distance squared ratio. The default value used, (FFACC = .1) 
provides form factor accuracy of approximately 3 percent for 
parallel flat plates. Background information for this accuracy 
relationship can be found in Appendix B. The user is cautioned 
that his problem run time is tied directly to his nodal element 
count, and indiscriminate reduction in the value of FFACC can be 
costly. The recommended approach to accuracy improvement is to 
selectively re-compute suspect form factors using a reduced 
FFACC value. 

When node pairs are situated such that the interelement 
distances vary a great deal, it is sometimes necessary to tempo- 
rarily subdivide node pairs in order to obtain sufficient accuracy. 
The parameter FFRATL controls this. The number of elements is dic- 
taLed by a weighted average distance and compared to FFRATL. If 
this value exceeds FFRATL, the node pair is subdivided. When 
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accuracy problems are encountered with node pairs having large 
interelement distance variation (nodes with congruent edges, 
for instance) , the recommended procedure is to enter an FFRATL 
value lower than the default value (FFRATL = 15.). an d selec- 
tively recompute the form factors. No change in FFACC should be 
required for this operation. Additional descriptive material 
on this technique can be found in Appendix B. 

The elemental breakdown of node pairs also influences 
form factor accuracy when shadowing by intervening surfaces is 
involved. For large magnitude form factors, the node pair ele- 
ment breakdown required to satisfy shadowing considerations is 
computed and used if it exceeds that dictated by separation dis- 
tance (see Appendix B). The element count dictated by shadow- 
ing is inversely proportional to the parameter FFACCS. The 
default value for FFACCS (FFACCS = .1) was chosen based on expe- 
rience. If the user knows that one or more of his significant 
form factors will be heavily influenced by shadowing, the recom- 
mended procedure is to selectively compute such form factors 
using a reduced value of FFACCS. 

The parameter FFMIN is used to reduce radiation inter- 
change factor compute time by inserting zeros in the form factor 
matrix in place of very small values. The default value, FFMIN = 
1. - E-6 is sufficiently small that it does not materially affect 
the energy balance of the problem. 

The remaining FFDATA parameters, FFNOSH, FFPRNT and 
FFPNCH are used to override shadowing computations and to pro- 
vide print and punch output options. The user is referred to 
Appendix D for. instruction in their use. 

4.3.4 Plot Package. Subroutines 

4. 3.4.1 Subroutines NDAIA, NDATAS 

' Calling sequences: CALL NDATA (NV, VU, SCL, SELN, TIT, IROTX, 

IROTY, IROTZ, ROTX, ROTY, ROTZ) 

CALL NDATAS (NV, VU, SCL) 

These calls are used to define plot parameters prior to 
executing the NPLOT program segment. A call to one of these 
routines prior to an NPLOT execution is not mandatory, because all 
arguments have default values (ref Appendix D) . The variables 
defined by NDATA or NDATAS calls will hold for any subsequent 
NPLOT execution in the operations block. 
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The NV parameter allows the user to make up to 6 NDATA 
or NDATAS calls, thereby defining up to 6 plot operations, before 
executing NPLOT. One NPLOT execution will execute all the plot 
operations defined. 

VU defines the type of plot desired. The options are 
3H3-D, 1HX, 1HY , 1HZ, 3 HALL , and 3HGEN. 3-D results in a 3- 
dimensional pictorial plot. X, Y, and Z produce orthographic 
projections of the geometry as seen from the X, Y, and Z axes 
of the CCS, respectively. ALL results in four frames, 3-D, X, 

Y, and Z. GEN is a general 3-D plot, where the user has control 
of the orientation of the CCS axes relative to his point of view. 

SCL is the plot scale factor, defined by: 

SCL = length on plot frame/length of surface where 
lengths of surfaces are as defined in the 
surface data block. 

The user should keep in mind that his hardcopy plot 
frames are probably about 17.8 cm (7 inches) square. 

SELN is the name of the array that contains a list of 
the integer node identification numbers the user desires to plot 
selectively. The selective node number array is entered in the 
array data block. 

TIT is the name of the Hollerith array containing any 
title the user desires on his plot frame. Up to 66 characters 
are allowed. 

IROTX, IROTY, IROTZ, ROTX, ROTY, and ROTZ are the group 
of six parameters defining point of view from which the user 
will "see” his problem geometry in a general view. For ROTX, 
ROTY, and ROTZ identically zero, the central coordinate system 
appears in plots as shown in Figure 4-1. 
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Figure 4-1 Node Plot Coordinate System Eeference 

Using Figure 4-1 as the reference position, the user 
may arbitrarily relocate the axes by defining ROTX, ROTY and 
ROTE to relocate the reference system so that it coincides with 
the desired systems location. The order of the rotations is defined 
using 1R0TX, IROTY, and IROTZ. 

4.3.4. 2 Subroutines ODAlA, ODAtAS 

Calling sequences: CALL ODATA (NV, VU, SCL, SCLR, RPLN, TRUEAN, 

TIMEST, TIME, ' SELN , TIT, IROTX, IROTY, IROTZ, 
ROTX, ROTY, ROTZ) 

CALL ODATAS (NV, VU, SCL, SCLR, RPLN, TRUEAN, 
TIMEST, TIME) 

These subroutines are functionally analogous to NDATA 
and NDATAS in relation to execution of the orbit plotter segment, 
OPLOT. 

NV is defined and functions identically with the simi- 
larly named parameter in NDATA. VU defines the plot type. 

Options are 3H3-D, 4HBETA, 5HCIGMA , 3HSUN, 3 HALL , and 3HGEN. 

3H3-D results in a 3-dimensional pictorial plot of the planet 
and spacecraft. 4HBETA results in an edge-on view of the orbit 
plane, with the BETA angle shown true. The 5HCIGMA view places 
the orbit plane in the plot frame, as seen from north of the 
celestial equator. 3HALL produces four frames, 3-D, CIGMA, BETA, 
and SUN. GEN results in a plot with the orbit coordinate system 
axes rotated according to user definition. SCL relates the 
user's geometry dimensions to plot scale according to: 



SFAC = SCL/OPMAX (NNS) 


where 


SFAC is the absolute surface scale factor (same as SCL in 

NDATA) , 

OPMAX (NNS) is the maximum extension of any surface point 

from the CCS origin (user surface data units). 

The user should generally enter a value of SCL equal to 
about 1/2 the desired planet radius in inches of plot frame. 

SCLR is the distance from the planet center where the 
user desires to see his CCS origin (in inches on plot frame) . 

RPLAN is the planet radius as plotted in inches. The 
planet radius default value used is 3,56 cm. (1.4 inches). The 
default values for SCL and SCLR are related to RPLAN according 
to the relationships: 

SCLR = 8.*RPLAN/7. 

SCL = (3.15 - SCLR) / 2 . 

The user may note that his spacecraft's altitude, as it 
appears in the plots, is not related in any way to actual orbit 
altitude. This is because the primary reason for orbit plots 
is for visualization of orientation. Orbit radius is, however, 
available in common as the variable RTHET in the operations 
block. Therefore, if the user cares to consider the scaling 
involved, he may write operations block logic to relate SCLR 
to actual orbit radius. 

TRUEAN is the true anomaly at the orbit point being de- 
fined for plotting (degrees from periapsis passage) , 

TIME is the time at which the orbit point plot is de- 
sired, in hours (required only if TRUEAN is not defined) . 

TIMEST is time of periapsis passage, in hours (required 
only if TRUEAN is not defined) . 

The remaining ODATA arguments, SELN, TIT, IROTX, IROTY, 
IROTZ, ROTX, ROTY, and ROTZ , are exactly analogous to the identi- 
cally named NDATA arguments (ref Section 4. 3. 4.1). Figure 4-2 
depicts the orbit coordinate system as plotted for ROTX = ROTY = 
ROTZ = 0. 
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4 . 3 . 4 . 3 Subrou tine PLDAtA 


Calling sequence: CALL PLDATA (IPLUNT, IPLSN, IPLNA, PLCRUF, 

PLLABX, PLLABY, PLTIT1, PLTIT2 , PLXMPF, 
PLYMPF) 

This subroutine is used to define parameters necessary 
to execute the output data plotter segment PLOT. Refer to Ap- 
pendix D, p D-21 for argument definitions. 

Y 

o 


2 & 
o 

Figure 4-2 Orbit Plot Coordinate System Reference 

4.3.5 Direct Irradiation Subroutines 

The direct irradiation subroutines are used to spa- 
tially locate the spacecraft relative to energy sources. The 
various calls give the user the option of locating his space- 
craft using classical orbit parameters, with a modified sun- 
referenced set of orbit parameters, with look angles, or with 
trajectory tape parameters. Subroutines are also available 
for defining spacecraft orientation and spin rate. 

4. 3. 5.1 Subroutine 0RBIT1 

Calling sequence: CALL ORBITl (PNAME, ALAN, APER, OINC, TIMEST, 

HP, HA, SUNRA, SUNDEC, STRRA, STRDEC) 

or : 


X 

o 


CALL ORBITl (PNAME, ALAN, APER, OINC, TIMEST, 
HP, ECC, SUNRA, SUNDEC, STRRA, STRDEC) 


4-10 



This subroutine defines an orbit using classic orbit 
parameters and locates the sun in the same celestial coordinate 
system referenced to the Vernal Equinox (reference Figures 
4-3 and 4-4) . 

In the case of a star-oriented spacecraft, the star is 
located in the celestial coordinate system, in the same manner 
as the sun. 



ALAN - Longitude of ascending 
node measured from X c 
axis to line of nodes; 
positive toward Y c 

APER - Argument of perifocus. 

measured in orbit X 0 -Y 0 
plane in direction of S/C 
motion from ascending node 
to periapsis 


HP - Altitude at periapsis 

OINC - Orbit inclination (angle 
between X c -Y c plane and 
orbit plane as seen from 
ascending node; 0. < OINC < 180° 
(OINC >90° for retrograde 
orbits) 


iiguve 4-3 Orbit Definition in a. CeZestiai Coordinate System 
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SUNRA, STRRA - Right ascension SUNDEC, STRDEC - Declination of 

of sun/star; measured in X c -Y c sun/star; positive from X c -Y c 

plane from X c axis; positive plane toward Z Q \ -90. < DEC i 90 

toward Y c axis; 0 . 5s. RA 360 


Figure 4-4 Sun and Star Locations in Celestial Coordinate System 
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PNAME is a Hollerith name used as a flag to direct 
the definition of the planet-dependent parameters. The allow- 
able PNAME options are: 3HMER, 3HVEN, 3 HEAR, 3HM00, 3HMAR, 

3HJUP, 3HSAT, 3HNEP, 3HURA, and 3HSUN. These names serve to 
define the following variables: 


prAd 

planet radius 

SOL 

solar constant at the average planet-sun 
distance 

PALB 

planet albedo value (surface solar re- 
flectance) 

WDS 

infrared emissive power at planet 
surface, dark side 

WSS 

infrared emissive power at planet sur- 
face, subsolar point 

GRAV 

acceleration of gravity at planet surface 


The values obtained from the different planet name 
arguments are tabulated in Table 4-1. Note that the values 
tabulated are in metric units. The values stored in core, 
however, are in the TRASYS base units system, that is, length 
in feet, time in hours, energy in British thermal units. If 
the user desires to manipulate these quantities using his own 
operations block FORTRAN code, he would expect them to be in the 
ft - hour - Btu units. 

Note that only Mercury and the Earth's moon are treated 
as bodies with nonuniform surface temperatures. This is correct 
for airless, slow- rotating planets. For these two bodies, the 
emissive power is considered everywhere constant on the dark 
side. On the sunlit side, the emissive power reduces from the 
subsolar value to the darks ide value at the terminator, accord- 
ing to a cosine law. 

The user is cautioned that his results using PNAME = 
3HMER may be extremely misleading. This planet's eccentric 
orbit, plus its nearness to the sun, results in a solar constant 
variation of from approximately 6 to over 10 Earth "suns" during 
the Mercury year. Corresponding variations in the subsolar 
emissive power occur. The recommended procedure for PNAME = 
3HMER is for the user to properly define SOL and WSS according 
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Tabte 4-1 Staved. Planet Pvopevty Values 


Planet 

Radius 


Planet 

jkm) 3 (ft) 


Albedo 

Mercury 

2485. (8.153 

E06) 

0.058 

Venus 

6199. (20.34 

E06) 

0.76 

Earth 

6370. (20.90 

E06) 

0.30 

Moon 

1738. ( 5.702 

E06) 

0.047 

Mars 

3314. (10.87 

E0 6) 

0.148 

Jupiter 

69885. (229.3 

E06) 

0.51 

Saturn 

57515. (188.7 

E06) 

0.50 

Uranus 

25482. (83.61 

E06) 

0 . 66 

Neptune 

24850. (81.53 

E06) 

0.62 

Sun 

698500. (2291. 

E06) 



Solar Constant 


at Mean Darks ide 

Planet Distance Emissive Power 


, / 2. b 
(w/m ) 

(B/Ft 2 -hr) 

(w/m 2 ) C 

(B/ft 2 - 

8920. 

(2830) 

0 . 

(0.) 

2570. 

(815.5) 

154.2 

(48.93) 

1352. 

(429) 

236.6 

(75.08) 

1352. 

(429) 

6.5 

(2.060) 

577.3 

(183.2) 

123.0 

(39.03) 

49.6 

(15.74) 

6.1 

(1.936) 

14.7 

(4.66) 

1.8 

(.5711) 

3.65 

(1.16) 

.31 

(.0983) 

1.48 

(.47) 

.14 

(.0444) 


6.262 x 10 7 


Sub solar 


Emissive Power 


(w/m 2 ) C (B/ft 2 - hr) 

, / 2 x d 
(m/s ) 

(ft/s 2 ) 

8402. 

(2666.) 

3.513 

(11.49) 

154.2 

(48.93) 

8.462 

(24.68) 

236.6 

(75.08) 

9.844 

(32.20) 

1288. 

(408.7) 

1.622 

(5.306) 

123.0 

(39.03) 

3.921 

(12.83) 

6.1 

(1.936) 

26.04 

(85.18) 

1.8 

(.5711) 

11.17 

(36.54) 

.31 

(.0983) 

11.52 

(37.68) 

.14 

(.0444) 

8.977 

(29.36) 

6.262 x 

10 7 

273.8 

(895.6) 


2 

are in Btu/ft -hr. 


3 . 

Values stored in program are in ft. 

b “2. “2. 

Referenced to 1352 w/m (429 Btu/hr-ft ) at 1 AU. Values stored in program 

c 2 

Values stored in program are in Btu/hr-ft . 

d 2 

Values stored in program are in ft/s . 



to his knowledge of the planet-sun distance. This is done us- 
ing two FORTRAN statements immediately following his 0RBIT1 
call. This same technique is available, of course, whenever the 
user desires to change WDS, WSS , or SOL to values other than 
the built-in nominals. The user's values will hold until another 
ORBIT call is encountered. 

ALAN, APER, OINC, HP, and HA are the longitude of the 
ascending node, argument of perifocus, orbit inclination, and 
periapsis and apoapsis altitudes. These are the five parameters 
necessary to define an orbit in the celestial coordinate system. 
The alternate 0RBIT1 call allows the input of eccentricity (ECC) 
in lieu of apoapsis altitude. TIMES! is the time of periapsis 
passage, in hours. 

The angular measurement arguments are In decimal de- 
grees of arc. The altitudes must be specified in feet. Note 
that FORTRAN allows arithmetic operations within argument lists; 
thus the following 0RBIT1 call might be used where HP is known 
to be' 150 nautical miles: 

CALL 0RBIT1 (3 HEAR, 32., 90., 22.5., 0., 6080. 

*150. , .94, -41. , 18. , 0. , 0.) 

SUNRA and SUNDEC are the right ascension and declina- 
tion of the sun, respectively, input in decimal degrees of arc 
(See Figure 4-4) . 

STRRA and STRDEC are the right ascension and declina- 
tion, respectively, of a star for a star-oriented mission (see 
Figure 4-4). Zero or dummy arguments are passed for non-star- 
oriented missions. 

For heliocentric orbits, (PNAME = 3HSUN) ALAN, APER, 
OINC, SUNRA, and SUNDEC have no meaning and are passed as zero 
or dummy arguments. 

4.3. 5,2 Subroutine 0RBIT2 

Calling sequences: CALL 0RBIT2 (PNAME, CIGMA, BETA, CIGMAS, 

BETAS, TIMEST, HP, HA) 

or : 

CALL 0RBIT2 (PNAME, CIGMA, BETA, CIGMAS, 
BETAS, TIMEST, IIP, ECC) 
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This subroutine defines an orbit using sun- referenced 
parameters in the orbit coordinate system. The orbit coordinate 
system has its X and Y .axes in the orbit, plane and its Z axis 
completes a right-handed set. The spacecraft travels from X • 
towards Y. . 

PNAME functions identically with 0RBIT1. 

CIGMA and BETA locate the solar vector in the orbit co- 
ordinate system (see Figure 4-5). . CIGMAS and BETAS locate a 
star in the orbit coordinate system (see Figure 4-5). Again, 
these arguments are zero or dummy for non-star-oriented missions. 

For heliocentric orbits, (PNAME - 3HSUN) 0RBIT2 is not 
applicable. 

4. 3. 5.3 Subroutine ORIENT 

Calling sequence: CALL ORIENT (TYPE, IROTX, IROTY, IROTZ, 

ROTX, ROTY, ROTZ) 

This subroutine is used to define the spacecraft orienta- 
tion relative to space-environment heat sources. Orientation is 
accomplished by relating the spacecraft central coordinate system 
to a vehicle coordinate system (VCS) that remains fixed, relative 
to a heat source or a star reference. 

TYPE is a Hollerith name used as a flag to define orienta- 
tion of the VCS. Allowable options for TYPE are 4HPLAN, 3HSUN, 
4HSTAR, or 4HTAPE. Figure 4-6 depicts the VCS relationship to the 
heat sources, star reference, and orbit coordinate system for the 
PLAN, SUN, and STAR options. The X^-axis points to the planet, sun, 

or star and the Z -axis is in the same half-space as the Z -axis. 

v o 

The Y^-axis lies in the orbital plane and completes the right-handed 

set. The TAPE option allows orientation to be defined from a tra- 
jectory tape. 

An ambiguity exists when the sun or star vector is paral- 
lel to the Z -axis. Tn this case, the Y -axis is defined to be 
o v 

in the, direction to the .velocity vector. 

IROTX, IROTY, IROTZ, ROTX, ROTY, and ROTZ are the rotation 

parameters necessary to locate the spacecraft CCS relative to the 

VCS and, hence, the heat source(s). ROTX is the rotation angle to 

rotate the VCS into the CCS; it rotates about X -axis, Y toward Z 
v v v 

positive. ROTY is the same as ROTX, except about the Y^-axis; ROTZ 

is the same as ROTX, except about the Z -axis, X toward Y positive. 

V v v 
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CIGMA - Angle from X c axis to sun vector projection in 
X 0 - Y 0 plane. Measured CCW as seen from Z D 
axis (in direction of S/C motion). 

0. < CIGMA < 360 

CIGMAS - Same as CIGMA except to star vector projection 

BETA - Angle from Z 0 axis to sun vector 
0 < BETA 180 

BETAS - Same as BETA, except to star vector 


Figure 4-5 Orbit Definition in Orbit Coordinate System 
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TYPE = 3HSUN TYPE = 4HSTAR 



Orientation Example. 

(CCS Z-axis locked to sun) : 

TYPE = 3HSUN 

IROTX = 1 
IROTY = 2 

IROTZ = 3 Rotates VCS into CCS, -270° 

ROTX =0. about Y axis 

ROTY = -270. 

ROTZ = 90° Rotates 90° about Z axis 


Figure 4-6 Vehicle Orientation with Subroutine ORIENT 


IROTX, IROTY, and IROTZ control the order in which the rotations are 
performed. Integers 1, 2, and 3 are the allowed options. For ex- 
ample, IROTX = 1, IROTZ = 2, and IROTY = 3 results in rotation first 

about X , then about Z , and then about Y . 

v v v 

4.3. 5.4 Subroutines DIDT1 and DIDT1S 

Galling sequences: CALL DIDT1 (DXNOSH, DlACC, DIACCS, TRUEAN, 

NSPFF , TIMEPR, DIPNCli) 


or : 


CALL DIDTIS (TRUEAN, NSPFF, TIMEPR, DIPNCH) 

These subroutines allow the user to define the form 
factor and shadowing accuracy parameters used in his direct ir- 
radiation calculations. Additionally, these routines can be 
used to update the spacecraft position in orbit by defining true 
anomaly (reference Figure 4-7). True anomaly can be defined 
directly or by defining a current time. 

DINOSH is a shadow/no shadow flag for direct irradia- 
tion calculations. DINOSH = 4HSHAD retains shadowing calcula- 
tions. DINOSH = 4HN0SH bypasses shadowing calculations. 

DlACC is the element selection accuracy factor for node 
planet form factor calculations. Its function is similar to 
FFACC in form factor calculations and its default value is 0.25. 
(ref para 4. 3. 3.1 and Appendix B) . 

DIACCS is the element selection accuracy factor for 
shadowing calculations (not applicable when DINOSH = 4HN0SH) . 

Its function is similar to FFACCS in form factor calculations 
and its default value is 0.1. (ref para 4. 3. 3.1 and Appendix B) . 

TRUEAN is the true anomaly of the spacecraft measured 
in decimal degrees of arc from periapsis passage in direction 
of spacecraft motion. 

TIMEPR is used to define true anomaly in terms of time; 
TIMEPR is current time, in hours. If TIMEPR is defined, TRUEAN 
in decimal degrees is returned to the operations block in common. 
If TRUEAN is defined, current time is returned to the operations 
block under the variable name TIMEPR. 

NSPFF specifies a step number within which a planetary 
flux calculation was made. If the FORTRAN statement: PLSAVE = 
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Figure 4-7 Definition of True Anomaly and Shadow Entry /Exit Points 


4HSAVE appears prior to this calculation, the form factor matrix 
from the spacecraft to planet will be stored out of core under 
step NSPFF. If this form factor matrix is valid for additional 
orbit points (i.e. circular orbit, planet oriented), the FORTRAN 
statement PLSAVE = 4HREAD is made in the first step subsequent to 
NSPFF. This will result in the planet form factor calculations 
being bypassed for the subsequent steps, with a corresponding sav- 
ing in computer time. 
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Subroutine DIDT1S is a short form version of DIDTl to 
be used when the user does not desire to specify his accuracy 
and shadow/no shadow flag. See Appendix D for DIDTl and DIDTl S 
argument default values. 

DIPNC1I is the flag for punching direct irradiation data 
in the flux data block format. Options are 3HPUN, 2HN0, and 4HTAPE. 

4.3. 5. 5 Subroutines DIDT2 and DIDT2S 

Calling sequences: CALL DIDT2 (DINOSH, DIACC, DIACCS, NSPFF, 

S UN CL , SUNCO, PLCL , PLCO, TIMEPR, ALT, DIPNCH) 


or: 

CALL DIDT2S (NSPFF, SUNCL, SUNCO, PLCL, 

PLCO, TIMEPR, ALT, DIPNCH) 

These subroutines are identical in function to DIDTl 
and DIDT1S in that they define the shadowing and accuracy param- 
eters to be used in the subsequent direct flux segment execu- 
tion, as well as furnish the parameters necessary to define the 
spacecraft's spatial relation with the sun and planet heat sources. 

The arguments DINOSH, DIACC, DIACCS, and NSPFF are 
exactly as discussed in paragraph 4. 3. 5. 4 and tabulated in Ap- 
pendix D. 

SUNCL, SUNCO, PLCL, and PLCO are the clock and cone 
angles needed to define the direction of the sun and planet posi- 
tion vectors in vehicle coordinate system 3-space. Figure 4-8 
shows how these parameters are defined. Their input units are 
decimal degrees of arc. 

ALT is the spacecraft altitude, above the planet, this 
argument must be input in feet. 

It should be noted that a DIDT2 call is not sufficient 
to define all the variables needed for a direct irradiation seg- 
ment execution. In general, an ORBITl or 0RBIT2 call must be 
made, or the variables PRAD, SOL, PALB, WDS , and WSS (ref para 
4. 3. 5.1) must be defined individually in operations block FORTRAN 
statements. The call to ORBIT! or 0RB1T2 need only define PNAME. 
The remaining arguments may be dummy s. 

The user should also be aware that spacecraft spin, as 
defined by subroutine SPIN, is not applicable when DIDT2 or DIDT2S 
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To Planet 


To 


vcs 



Figure 4-8 Spacecraft Orientation with Subroutine DJDT2 


are called, since DIDT2 and DIDT2S directly define spacecraft 
orientation as well as position in space. 

4. 3. 5. 6 Subroutine SPIN 

Calling sequence: CALL SPIN (CLOCK, CONE, RATE, TRUANS , SPNTM) 


*If subroutine ORIENT is not called prior to DIDT2 or DIDT2S, the 
vcs and ccs coincide. This is the recommended mode of use. Star 
is not allowed as an orient type when using DIDT2 or DTDT2S . 
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This subroutine is used to define spacecraft spin. 

The arguments CLOCK and CONE define the spin axis with reference 
to the central coordinate system. RATE defines the spacecraft 
spin rate about the spin axis in degrees per hour. Figure 4-9 
illustrates the clock and cone angles, and the algebraic sign 
convention used with RATE. 

The time spin begins is defined through TRUANS _or 
SPNTM. If the user knows the time his spin begins, he specifies 
it directly as SPNTM. If he knows the true anomaly where it be- 
gins he specifies TRUANS and passes zero for SPNTM. 

Spacecraft spin computations are done on the basis of 
the following: the spacecraft is assumed to be in the orienta- 

tion defined by the last call to subroutine ORIENT at SPNTM. At 
any subsequent points in time, the spacecraft is reoriented, 
presuming a constant spin-rate, about the SPIN-defined spin axis, 
over the time elapsed since SPNTM. 

4. 3. 5. 7 Subroutine DICOMP 

Calling sequence: CALL DICOMP (ISOLFL, IALBFL , IPLAFL) 

This subroutine allows the user to define the logic 
used in a subsequent DICAL execution. The choice of computing, 
stuffing from another step, or zeroing out individual solar, al- 
bedo, and planetary fluxes is available. See Appendix D, p D-23, 
for argument definitions. 

4 . 3 . 5 . 8 Subroutines DITTP and DITTPS 

Calling sequence: CALL DITTP (TIME, ITYPE , PLANAM, IDWDN , FIDEN, 

NTIM, NTYPE, NCLPL, NCOPL, NCLS , NCOS, NRAD, 
NVJOR, ALTMF , IFLS, DIPNCH) 

or: CALL DITTPS (TIME, ITYPE) 

These subroutines allow the user to define his mission 
by reading trajectory tapes of the attitude timeline variety. 

The pertinent data are read from the tape and placed in storage 
for use by the DI.CAL segment through an internal call to DIDT2. 

Subroutine DITTP allows the user to define the trajec- 
tory tape format, identify the proper file on multifile tapes, 
define the attitude parameters for his first compute point, and 
position the tape for reading subsequent points. Subsequent 
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Z CCS 



Note : Spin axis coordinates illustrated for the 

case clock * 180, cone = 90 


Figure 4-9 Spacecraft Spin Definition 


points are read using DITTPS, which presumes that the tape is pre- 
viously positioned to the correct file, and a call to DITTPS re- 
sults in repeated reads of trajectory tape records until a time 
value equal to TIME is encountered. If ITYPE is defined (as an 
integer data value) , repeated reads are made until TIME is en- 
countered, then reading continues until a special event identifier 
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equal to ITYPE is encountered. Note that this tape reading 
method precludes calling for a time value less than the time 
argument used in a previous DITTP or DITTPS call. 

Figure 4-10 is an operations data block segment that 
generates direct irradiation for three time points, using a tra- 
jectory tape. In Step 2, the trajectory tape is positioned to 
a file named ZLVl and the data are read at TIME = 10.0 hours, which 
is not a special event point. The planet involved is Earth, 
flux output is punched, and the spacecraft altitude data on the 
tape are in nautical miles (ALTMF = 6080.). Trajectory tape for- 
mat information is as follows: 

a) Tape records are 58 words long (NWOR = 58) , 

b) Tape is for 1 body (IBOD = 0) . 

c) File identification is found in word 1 of tape records 
(IDWDN = 1) . 

d) Time is found in word 3 of tape records (NTIM = 3) , 

e) Special event identifier is found in word 5 of tape records 
(NTYPE = 5) . 

f) Planet center-to-spacecraf t distance is found in word 13 of tape 
records (NRAD = 13) . 

g) Clock angle-to-planet vector is found in word 9, 

(NCLPL = 9) . 

h) Cone angle-to-planet vector is found in word 10, 

(NCOPL = 10) . 

i) Clock angle-to-sun vector is found in word 11, 

(NCLS = 11) . 

j) Cone angle-to-sun vector is found in word 12, 

(NCOS = 12) . 

Step 2 reads trajectory tape information at time = 

10.5 hours, which is not a special event. Step 3 reads trajec- 
tory tape information at a special event of type 2, which occurs 
just subsequent to 11.0 hours. 

4.3.6 Radiation Interchange Subroutines 

4.3.6. 1 Subroutine GBDATA 

Calling sequence: CALL GBDATA (IGBSFF, GBWBND) 

This subroutine defines the parameters necessary prior 
to executing the GBCAL segment to obtain a grey-body factor 
matrix. 


4-25 



HFAHFR OPERATIONS DATA 
STEP 1 

CALL BPILOC < Ai.l.RLK). 

L r FC A I. 

call p^data <o«4hroth) 

I SB CAL 

STEP ? 

CALL D 1 T Tp ( 1 0 . 0 * 0 * 3HF aR » 1 ♦ 4 HZI. VI».3»5*R*10* 1 1 » 1 2 * 1 3 » 58 » A 080 
13HPHN) 

L OTCAL 

STEP 3 

CALL DTTTPS (1 0.3,0) 

L OTCAL 

STFp 4 

CAM. 0 1 TTPS (11.0*?) 

I. D T CM 


» 0 » 


Figure 4-10 Trajectory Tape Operations Example 


Argument IGBSFF identifies the previously executed 
step number that computed or otherwise defined the form factor 
matrix corresponding to the grey-body factor matrix desired. 

Prior to the GBDATA call, calls to BUILDC and ADD must be in 
effect that define the geometry as it was defined in Step IGBSFF. 

Argument GBWBND (Options: 3HSOL, 2HIR, 4HBOTH) defines 

the energy waveband — solar, infrared, or both — that will be used 
in grey-body factor calculation. 

4. 3. 6. 2 Subroutine KKDATA 

Calling sequence: CALL KKDATA (IRKNGB, KKPNCH, RKMIN, IRKCN, 

RKSP, IRKNSP, SIGMA, KKAMPF, RKTAPE) 

This subroutine defines the parameters necessary prior 
to executing the RKCAL program segment to obtain radiation con- 
ductors (RADKs) in thermal analyzer format. 

Argument IKKNGB identifies the previously executed 
step number in which grey-body factor matrix corresponding to 
the desired radiation conductors was computed. Prior to the 
RKDATA call, calls to BUILDC and ADD must be in effect that de- 
fine the problem geometry as it was in Step IRKNGB. 

Argument RKPNCH (Options.* 3HPUN, 2HN0) is the punch/ 
no punch flag for radiation conductors on BCD card format. 

Argument RKMIN defines the lower limit of the radia- 
tion conductor values that will be punched or put on BCD tape. 
RKMIN is defined as follows: 
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for a valid radiation conductor, 

A. V C i > FMIN . 

where 


«h 


is the grey-body factor from node i to j , 
is the infrared emittance of node i. 


Argument ISKCN is the initial radiation conductor 
identification number.. The radiation conductors are numbered 
consecutively from IRKCN. \ 


Arguments RKSP and IRRNSP provide the information to 
define radiation conductors to space for problems that do not 
form a complete enclosure. RKSP (Options: 5HSPACE, 2HN0) is 

the flag for calculation of radiation conductors to space. When 
RKSP = 5HSPACE, radiation conductors to space for node i are 
computed according to: 

N 


F . 

i-space 




F. . 

tj 


for an N-node problem. IRKNSP is the user-defined identifica- 
tion number for his space node. 


SIGMA and RKAMPF are available for the user to obtain 
unit agreement between his radiation model and thermal analyzer 
model. SIGMA is the Stefan- Boltzmann constant that will appear 
on the radiation conductor and RKAMPF is an arbitrary multipli- 
cation factor available to change from the TRASYS standard area 
units (square feet) to the area unit the user desires. If 
RKAMPF is 1.0, the area unit associated with SIGMA must be square 
feet. 


« 


Argument RKTAPE (Options: 4HTAPE, 2HNO)' allows the 

user to write his radiation conductors to his BCD RADK tape 
(thermal analyzer format). 

A] l RKDATA arguments have default values (see Appen- 
dix D) so that an RKDATA call before an RKCAL execution is not 
mandatory . 
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4.3.7 


Absorbed Heat Subroutines 


4.3.7. 1 Subroutine AQDATA 

Calling sequence: CALL AQDATA (IAQGBI, IAQGBS, RSOLAR, rALB, 

RPLAN) 

This subroutine defines the parameters necessary prior 
to executing the AQCAL program segment to compute absorbed heats. 

All arguments are step number references to the cur- 
rent or previously executed steps that have resulted in valid 
direct irradiation and grey-body data being placed in out-of-core 
storage. 

IAQGBI is the step number reference for an infrared 
grey-body matrix. 

1AQGBS is the step number reference for a solar grey- 
body matrix. 

RSOLAR is a solar-heat rate multiplying factor 
(defaults to 1.0). 

RALB is an albedo-heat-rate multiplying factor (de- 
faults to 1 . 0) . 

RPLAN is a planetary-heat-rate multiplying factor 
(defaults to 1.0), 

Step number arguments will default to the current step 
number, so that an AQDATA call is not required if all necessary 
data are in storage under the current step number. Prior to an 
AQCAL execution, the BUILDC and ADD calls in effect must agree 
exactly with those in effect when each of the five referenced 
steps were executed. 

4 . 3 . 7 . 2 Subroutine STFAQ 

Calling sequence: CALL STFAQ (TRUEAN, TIMEPR, NSTP) 

This subroutine stuffs values of absorbed heat and/or 
direct flux computed in a previously executed step into out-of- 
core storage for the current step. It also stores time for the 
current step, defined either directly or from true anomaly. 

The argument NSTP is the step number from which the 
desired absorbed heat values will be obtained. 
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The geometry, as defined by BUILDC and ADD calls, in 
effect at the time any STFAQ call is made must agree exactly 
with that in effect when step NSTP was executed. 

4. 3. 7. 3 Subroutine QODATA 

Calling sequence: CALL QODATA (NSARRY, NTMARY, QOTAPE, QOPNCH, 

QOAMPF , QOFMPF, QOTMPF, QOTYPE, IQOCOR) 

This subroutine defines the parameters necessary to 
allow absorbed heat data in thermal analyzer format to be gener- 
ated in a subsequent QOCAL execution. 


Argument NSARRY is the name of an array containing 
the previously executed step numbers where the desired absorbed- 
heat data can be found in storage. Unless NSARRY = 3HALL, this 
array must be entered in the array data block and must be dimen- 
sioned to agree exactly with the number of valid step numbers it 
contains. The user is referred to Figure 3-13 for examples of 
ways this array may be defined. If the 3HALL option is used, all 
absorbed heat data computed since the last call to BUILDC will 
be output. 


Argument NTMARY is the thermal analyzer array number 
the user desires for his time array when Q vs time tables are 
being generated. The Q arrays generated will be numbered conse- 
cutively from NTMARY+1. 

Arguments QOTAPE and QOPNCH are flags to control the 
form of Q table output. Options are 3HPUN, 2HN0 for punch/no 
punch control, and 4HTAPE, 2HN0 for write/no write to BCD tape. 

Arguments QOAMPF, QOFMPF and QOTMPF are the multiply- 
ing factors for area, energy, and time, respectively. The de- 
fault values of 1.0 result in time in hours, area in square feet, 
and energy in Btu/hr. 

Argument QOTYPE controls the type of output obtained. 
3HTAB results in Q vs time tables; 2HAV results in an average 
Q for the time period defined by NSARRY. 

Argument IQOCOR defines the correspondence data block 
step number to be used. This argument defaults to the current 
step number. 
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4.3.8 


Shadow Factor Subroutine 


4. 3. 8.1 Subroutine SFDATA 

Calling sequence: CALL SFDATA (NAMEI, NAMEO) 

This subroutine is used to label files on shadow factor 
input (SHADI) and shadow factor output (SHADO) tapes. This call 
is mandatory if a SHADI tape is used so that the correct file is 
selected.' SHADO tape files are identified with the Hollerith 
name NAMEO . 

4.3.9 Data Modification Routines 

A series of routines are available that enable the user 
to change certain types of data from the operations data block. 
This provides a convenient way to perform many types of parametric 
studies without the necessity of making multiple runs and error- 
prone changes to the surface data. 

The series of routines allows the following node prop- 
erties to be changed: 

a) Area; 

b) Diffuse infrared emissivity and/or solar absorptivity; 

c) Specular infrared and/or solar reflectivity; 

d) Infrared and/or solar transmissivities; 

e) SHADE/BSHADE flags. 

Calling sequences are designed so that the properties may be 
changed for one or all active nodes with one call. The use and 
function of these routines is explained in the following sections. 

4 . 3 . 9 . 1 S ubroutine MO PAR 

Calling sequence: CALL MODAR (ND, AR) 

This subroutine changes the area of a designated node 
or the area of all currently active nodes by use of a multiplier. 
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Argument Name Description 

Options 

Default 

ND 

Node Number 
Designator 

a) 

Any Active 
Node Number 
(Integer) . 

None 



b) 

3 HALL 


AR 

Desired Value 
for Area 

a) 

Floating- 
Point Data 
Value 

None 



b) 

Area Multi- 





plier^- (3HALL 
Option Only) 


Note: 1. 

When ND = 3HALL, all 
according to AREA = 

active 

AREA*AR 

node areas are 

modified 


Restriction: Call not valid prior to geometry definition 

through calls to BUILDC and ADD. 

4. 3. 9. 2 Subroutine MO DPR 


Calling sequence: CALL MO DPR (ND, ALPHA, EMISS) 

This subroutine modifies the diffuse infrared emissivity 
and/or the diffuse solar absorptivity of a designated node. 


Argument Name 

Description 

Options 


Default 

ND 

Node Number 

Any 

Active 

None 


Designator 

Node Number 


ALPHA 

Diffuse Solar 

a) 

o. 1 

DV 11, 

None 


Absorptivity 

b) 

V 

> 

p 

0 . 


EMISS 

Diffuse IR 

a) 

vf 

o 

DV 11. 

None 


Emissivity 

b) 

DV < 

0 . 



Note : 1. If ALPHA < 0. or EMISS < 0., current values are not 

changed . 


Restriction: Call not valid prior to geometry definition 

through calls to BUILDC and ADD, 

4 . 3 . 9 . 3 Subroutine MQDTR 

Calling sequence: CALL MODTR (ISR, TRANS, IRANI) 
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missivity 

Thi 

of 

s subroutine modifies 
a designated surface. 

the solar and/or 

intrared trans 

Argument Name 

Description 

Options 

Default 

ISR 


Surface Number 
Designator 

Any Active 
Surface Number 

None 

TRANS 


Solar Trans- 
missivity 

a) . 0. 1 DV 1 1. 

b) DV < 0. 1 

None 

TRANI 


IR Transmissiv- 
ity 

a) 0. 1 DV 1 1. 

b) DV < 0. 1 

None 

Note: 1. 

If TRANI < 0. or TRANS 
changed . 

< 0. , current values are not 

2. 

Transmissivity changes 

affect the entire 

surface. 


Restriction: Call not valid prior to geometry definition through 

calls to BUILDC and ADD. 


4.3. 9.4 Subroutine MODPRS 


Calling sequence: CALL MODPRS (ND , SPRS , SPRI) 


specular 

This subroutine modifies the solar and/or 
reflectivity of a designated node. 

infrared 

Argument 

Name 

Description 

Options 

Default 

ND 

6 


Node Number 
Designator 

Any Active 
Node Number 

None 

SPRS 


Specular Reflec- 
tivity, Solar 

a) 

0 . 1 DV < 1 . 

None 




b) 

< 

A 

o 

f- 1 


SPRI 


Specular Reflec- 
tivity, Infrared 

a) 

0. 1 DV 5 1. 

None 




b) 

DV < 0. 1 


Notes: 1 

. If 

SPRI < 0. or SPRS < 

0. , 

current values are not changed 


Restrictions: 1. This call is applicable only to nodes defined as 

specular reflectors in the surface data block. 
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2. Call not valid prior to geometry definition 
through calls to BUILDC and ADD. 

4. 3. 9. 5 Subroutine MODSHD 


Calling sequence: CALL MODSHD (ISR, SHADE, BSHADE) 

This subroutine modifies the SHADE/BSHADE flags for a 
designated surface. 


Argument Name 

Description 

Option 

Default 

ISR 

Surface Number 

Any Active 

None 


Designator 

Surface Number 


SHADE 

Can Shade Flag 

FF, DI, BOTH, 

None 



i — 1 

o 

o 

£5 


BSHADE 

Can Be Shaded 

FF, DI, BOTH, 

None 


Flag 

NO, 0 1 



Note : 1. If SHADE or BSHADE data values are zero, their values 

are not changed. 

2. Shade flag changes affect the entire surface. 

Restrictions: 1. Call not valid prior to geometry definition 

through calls to BUILDC and ADD. 

2. Call not applicable to shadower-only surfaces 

4-3.10 Approximate Radiant Interchange Factors 

A routine is available in the processor library that 
computes diffuse-grey-body interchange factors according to the 
first-order approximation: 

t7 % = PR0PI*PR0PJ*F . 

ij ij 

where 


FROPI and PROPJ are the diffuse surface properties, 
solar absorptivity or infrared emissivity ; is the approx 

mate radiant interchange factor between surfaces i and j; F 


il 


is 


the form factor. 


This equation is, of course, exact for a black enclosure (PROPI 
PROPJ = 1 for all i, j) and gives a reasonable approximation if 
all surface properties are 0.8 or greater. 
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A call to subroutine GBAPRX in lieu of executing the 
GBCAL segment will generate the approximate grey-body factor data 
and store them in the same manner as GBCAL. There is a signif- 
icant saving in computer time when the problem size is 200 nodes 
or greater. 

4*3.10.1 Subroutine GBAPRX 

Calling sequence: CALL GBAPRX ( IGBSFF, GBWBND) 

This subroutine calculates grey-body radiant inter- 
change factors using an approximate relationship and stores the 
results in data storage. 


Argument Name Description 


Options 


Default 


IGBSFF 


Step Number for Integer 
Form Factors 


Current 
Step No. 


GBWBND 


Waveband Defini- 

2HIR, 3HS0L 

4HB0TH 

tion Name 

4HB0TH 



Note : Input zero for default action. 

Restriction: None. 

4.3.11 Radiation Condenser Segment 

The radiation condenser segment provides the user with 
two methods of radiation model simplification. 


The first of these methods, which is referred to as the 
Multiple Enclosure Simplification Shield (MESS) technique, allows 
a complex radiation enclosure to be modularized into discrete sub 
enclosures by the assignment of imaginary interface shield nodes. 
Each of these smaller enclosures can be analyzed independently of 
the others, resulting in more efficient use of computers and man- 
power . 


The second method, referred to as the Effective Radia- 
tion Node (ERN) technique, is used to reduce the number of radia- 
tion couplings required to thermally model an enclosure by re- 
placing small conductors from each node with a single conductor 
coupled to the enclosure ERN. 

The techniques and their application are described in 
more detail in Appendix F. 
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4.3.11.1 Subroutine RCDATA 


Calling sequence: CALL RCDATA ( IRCNGB , RCPNCH, RCMIN, IRCCN, 

RCSP , IRCNSP , SIGMA, RCAMPF, RCTAPE, RFRAC , 
NERN, IPRIME, ISECND) 

This is a user-called subroutine that defines the param- 
eters used in RCCAL for the condensation and output of radiation 
conductors (RADKS). 

Variable Descriptions and Default Values 


Variable 

Description 

Default Value 

IRCNGB 

Step Number Reference for Infrared 
Grey-Body Factors 

Assumes Current 
Step 

RCPNCH 

Punch/No Punch Flag. Options: 
3HPUN , 2HN0 

3HPUN 

RCMIN 

Minimum Value of F/c That Will Result 
in a Valid RADK 

0.0001 

IRCCN 

Initial Radiation Conductor Number 

1 

RCSP 

Flag for Calculation of RADKS to 
Space. Options: 5HSPACE , 2 HNO 

2 HNO 

IRCNSP 

Space Node Number 

32767 

SIGMA 

Stef an-Boltzmann Constant 

1.713E-9 

RCAMPF 

Area Multiplying Factor 

1.0 

RCTAPE 

Flag to Write RADKS to BCDOU Tape. 
Options: 4HTAPE, 2HN0 

2 HNO 

RFRAC 

Significant Radiation Fraction: 
Ref Appendix F, equation 6. 

None 

NERN 

Effective Radiation Node (ERN) Number 

None 

IPRIME 

Array Name for Array of Primary MESS 
Node Numbers and Special Node Numbers 

None 

ISECND 

Array Name for Array of Secondary 
MESS Node Numbers 

None 
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Restrictions : 


1. RCDATA must be called prior to RCCAL execution 
because all of the variables are not defaulted. 

2. Current model geometry must agree with that of 
step IRCNGB. 

3- IPRIME and ISECND arrays must be input in the 
array data block to specify MESS node pairs 
and special nodes. IPRIME contains a list of 
all primary MESS nodes and all special nodes 
in that order. ISECND contains a list of all 
secondary MESS nodes in a one-to-one corres- 
pondence with the primary MESS nodes in IPRIME. 

4.3.12 Adiabatic "Closure" Surfaces 


It is sometimes desirable to conserve energy in a thermal 
radiation problem that does not constitute a complete enclosure. 

The usual means of doing this is to complete the enclosure with an 
adiabatic reflector surface. This can be accomplished by entering 
a rudimentary closure surface in the surface data and using sub- 
routine ADSURF to add the closure surface to the form factor matrix 
after form factors have been computed for the real surfaces in the 
problem. 

4.3.12.1 Subroutine ADSURF 

Calling Sequence: CALL ADSURF (BCSN, FFSN) 

BCSN is the block coordinate system name under which the 
closure surface appears in the surface data, FFSN is the previously 
executed step number under which form factors were computed. 

When ADSURF is called, the form factor matrix is read 
from step FFSN, and form factors from each node to the closure 
surface are computed by subtracting the form-factor row sums from 
1.0. This new row of form factors is added to the form factor 
matrix and the resulting matrix is stored under the current step. 

Two form factor matrices are now available to the user for use in 
generating radiation interchange data. 
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5. 


PROCESSOR SEGMENTS 


5.1 P ic torial Plot Segments 

5.1.1 Node Plotter 

Calling sequence: L NPLOT 

This segment provides the user with 3-dimensional and/or 
orthographic projection pictorial plots of his problem geometry. 

Its primary use is to verify surface data input prior to proceed- 
ing with computations of radiation interchange or absorbed heat 
data. Examples of its output can be found in Appendix H. 

This segment has no provision for user intervention in 
the form of program called subroutines that the user may modify. 
Control is provided through the NDATA or NDATAS subroutines. 

5.1.2 Orbit Plotter 

Calling sequence: L OPLOT 

This segment provides the user with a pictorial repre- 
sentation of his spacecraft in relation to the body it orbits 
and the sun. 

The planet and its shadow are depicted, together with a 
pictorial view of the spacecraft in orbit. The standard output 
enables the user to verify his orbit in relation to the sun, and 
spacecraft orientation relative to the sun, planet, or star. 
Examples of its output can be found in Appendix H. 

This segment has no provision for user intervention be- 
yond that provided by subroutines ODATA and ODATAS . 

5.1.3 Data Plotte r 

Calling sequence: L PLOT 

This segment provides the capability to plot any com- 
puted or input data as x versus y plots. The segment automatically 
writes a binary plot data unit (disc or drum) for producing plots 
of incident or absorbed heat rates or fluxes as a function of 
time (Ref subroutine PLDATA, Appendix D-21) . 

The segment also provides a completely general plot capa- 
bility if the user inputs operations data block FORTRAN to pre- 
pare the plot data unit prior to executing the PLOT segment. This 
type of plot operation is illustrated by the plot .unit format 
described below. 
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5.1.4 

Write 

where: 

Record 


Record 


Record 


Record 


The plot segment flow diagram is shown in Figure 5-1. 

Binary Plot Unit Format 

format: NAME, N, (DATA (I), 1=1, N) 

NAME: type of record 

N : number of words in record 

DATA: array of data 


1, TYPE = FRAME, N = 6 

word 1 5HFRAME 

2 4 

3 XMIN 

4 XMAX 

5 YMIN 

6 YMAX 


2, TYPE = LABELX , N = 7 
word 1 6HLABELX 

2 MAXIMUM OF 5, 30 characters, maximum, 6 /per word 

3 LABEL ARRAY (1) 

4 (2) 

5 (3) 

6 (4) 

7 (5) 


3, TYPE = LAB ELY, N = 7 (max) 
word 1 6HLABELY 

2 N (MAXIMUM OF 7 , 30 characters, maximum, 6/per word) 

3 LABEL ARRAY (1) 

4 (2) 

5 (3) 

6 (4) 

7 (5) 


4, TYPE = NODENO, N = 3 

word 1 6HNODENO 
2 1 

3 INTEGER NODE # 
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PLMAIN 


PLLOAD 


USER DEFINED 
PLOT DISC 


READ 

DATA 


ABSORBED 


SORT 
DATA BY 
TIME 


INCIDENT 




APPLY 

MULTIPLIERS 


RETURN 


Figure 5-1 PLOT Segment Flow Diagram 













Record 5, TYPE = TITLE 1, N = 12 (max) 
word 1 6HTITLE 1 

2 N(MAXIMUM OF 12, 60 characters, maximum, 6/per 

word) 

3 TITLE ARRAY 1 

4 2 

12 10 

Record 6, TYPE = TITLE 2, N = 14 (max) 
word 1 6HTITLE 2 

2 N(MAXIMUM OF 14, 72 characters, maximum, 6/per 

word) 

3 TITLE ARRAY 1 

4 2 

14 12 


Record 7, TYPE = INDEP, N = user supplied 

word 1 5HINDEP 

2 N (1 _< N £ 1000) 

3 DATA (1) 

N+2 DATA (N) . 


Record 8, TYPE = DEPEND 

word 1 6HDEPEND 

2 N (1 £ N <_ 1000) 

Note: a) TYPE DEPEND can occur as many times on a file as 

desired for multiple plots on a frame. 

b) Any records but FRAME, INDEP and DEPEND types may 
be omitted. 

5.2 Form Factor Segment 

Calling sequence: L FFCAL 

This segment computes form factor matrices for any geo- 
metric enclosure using a numerical integration method. Internode 
blockage is accounted for with differing solar and IR transmis- 
sivities and, because semitransparent and specular surfaces are 
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allowed, two form factor matrices are computed: FFS for the 

solar waveband and FFI for the infrared waveband. 

Provision for user intervention via the subroutine data 
block is available through three program-called subroutines: 

(1) prior to computation of each form factor through subroutine 
FFPRE, (2) at the completion of a row of form factors through 
subroutine FFROW, and (3) at the completion of the entire matrix 
through subroutine FFEND. The logic flow of the FFCAL segment 
is shown in Figure 5-2. 

FFCAL provides printed output, as well as punched-in 
form factor data block format, at the user’s option. Examples 
of FFCAL output are shown in Appendix H. 

5 . 3 Shadow Factor Segment 


Calling sequence: L SFCAL 

This segment computes shadow factor tables for each 
node of a spacecraft configuration to be used in direct irradia- 
tion calculations when analytic shadow effect calculations are 
not desirable. 

Primary output for this segment is a tape containing 
shadow factor tables for each node. This tape contains shadow 
data packed according to a format as presented in Appendix C. 

The shadow factor tables are also output in printed form. An 
example of the printed output resulting from an SFCAL direction 
can be found in Appendix H. Shadow factors for both the solar 
and infrared wavebands are computed, because semitransparent 
shadowing surfaces are allowed. 

No user intervention is provided for this segment. Prior 
to an SFCAL call, the user may set a flag to obtain punched 
shadow factor data through the statement SFPNCH = 3HPUN. Punched 
output obtained will be in shadow factor data block format. 

5 . 4 Radiation Interchange Segments 


Calling sequences: L GBCAL 

L RKCAL 

Segment GBCAL computes a matrix of diffuse grey-body 
radiation interchange factors and places them in out-of-core 
storage for later use in computing absorbed heat or radiation 
conductors. Solutions for either the solar or infrared wave 
bands may be requested. No user intervention provisions are made 
beyond that of subroutine GBDATA. 
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RBMAIN 


KN=NSPEC 


CALL 

RBRDIN 


CALL 

RBIMAG 


CALL 

RBRDRQ 


IFS(JM)=0 \ N0 
YES 

1 KN— 1 


CALL 

, r 

RBTJIMG 

KN-ra+i i 


CALL 

RBPRE 



CALL 


RBCAL 



RETURN 


Figure 5-3 Segment RBCAL Flow Diagram 
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Segment RKCAL computes radiation conductors for thermal 
analyzer models and provides output in punched card or BCD tape 
form. A printout of the card/ tape record images is also pro- 
vided. Three program-called user routines are used to provide 
user intervention through his subroutines block. Subroutine 
RKPRE provides for any special initialization desired before 
computations begin. Subroutine RKPNCH performs the actual punch/ 
tape write operations, and the user may obtain data in any thermal 
analyzer program format by altering format statements in this 
routine. User routine RKEND provides for user intervention prior 
to return to operations block control. Figure 5-4 shows segment 
RKCAL logic flow. 

An example of RKCAL output can be found in Appendix H. 

5.5 Direct Irradiation Segment 

Calling sequence: L DICAL 

This segment computes the thermal radiation directly 
incident on external spacecraft surfaces due to the presence of 
the sun or a nearby p-lanet. Three components are computed: 
direct solar, reflected solar from the planetary surface (albedo) 
and infrared planetary emission. Shadowing effects due to inter- 
node blockage are accounted for. Normally, shadowing is computed 
analytically; however, at the user's option shadowing may be 
computed by the use of shadow data provided on a shadow factor 
tape. This requires that the shadow factor tape be mounted and 
the flag SFTAPE be defined through a FORTRAN statement in the 
operations block prior to the DICAL call. For example, if the 
statement: 

SFTAPE = C0NF1 

appears prior to a DICAL call, the analytic shadowing calculations 
will be bypassed. Further, a shadow factor tape file with the name 
C0NF1 will be used for shadow calculations. If no file with this 
name is found, the run will abort. 

Four program called subroutines are provided for user 
intervention through his subroutine data block. Subroutine 
DIPRES provides for special initialization prior to solar flux 
calculations Similarly, DIPREP is called prior to planetary/ 
albedo flux calculations. Subroutine DIENDS and DIENDP provide 
for user intervention subsequent to solar and planetary/albedo 
calculations, respectively. Figure 5-5 depicts the logic flow 
of segment DICAL. 


5-8 



RKMAIN 



Figure 5-4 Segment RKCAL Flow Diagram 
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Figure. 5-5 Segment DICAL Flow Diagram 
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Figure 5-6 Segment DRCAL Flow Diagram 











DICAL output is placed in out-of-core storage for later 
use in absorbed flux calculations. In addition, direct irradiation 
data may be punched at the user’s option. This data is in the 
flux data block format. A printout of the direct irradiation data 
is provided also. An example of DICAL output can be found in 
Appendix H. 

5 . 6 Absorbed Heat Segment 


Calling sequence: L AQCAl, 

This segment utilizes direct irradiation and’radiant 
interchange data in out-of-core storage as input. From this, it 
computes absorbed heat values for each external spacecraft node. 
Internode reflections are accounted for in both the solar and 
infrared wavebands. 

No user intervention through the subroutine data block 
is provided. 

Segment AQCAL output is placed in out-of-core storage. 
Printed output is also provided. An example of AQCAL output can 
be found in Appendix H. 

5 . 7 Absorbed Heat Output Segment 

Calling sequence: L QOCAL 

This segment utilizes absorbed heat data in out-of-core 
storage to provide heat source tables in thermal analyzer format. 
At the user's option, heat versus time tables or orbital average 
heat data are provided for each external node. 

Output is provided on punched cards or BCD tape. Q 
versus time data is in thermal analyzer array data format, with 
a singlet time array and a corresponding singlet Q array for each 
node. Also punched are thermal analyzer interpolation subroutine 
cards for each node. Orbital average data is punched in source 
data block format. 

Standard output is in SINDA thermal analyzer format. 
Subroutine DA11MDA is used for the interpolation subroutine. Out- 
put for other thermal analyzers may be obtained by altering the 
format statements in subroutine QOSAVE and entering the altered 
version in the subroutines data block. Card image printout of 
QOCAL output is provided. An example can be found in Appendix II. 
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Segment QOCAL logic flow is shown in Figure 5-7. 

Radiation Condenser Segment 
Calling sequence: L RCCAL 

Segment RCCAL computes radiation conductors, simplifies 
and condenses these conductors using the ERN and MESS techniques, 
and provides output in punched card and/or BCD tape form. A 
printout of the card/tape record images as well as the original 
(uncondensed) RADKS is also provided. Three program-called user 
routines are used to provide user intervention through h-is sub- 
routines block. Subroutine RCPRE provides for any special in- 
itialization desired before computations begin. Subroutine 
RCPNCH performs the actual punch and tape write operations, and 
the user may obtain data in any thermal analyzer program format 
by altering format statements in this routine. User routine 
RCEND provides for user intervention prior to return to operations 
block control. Figure 5-8 shows segment RCCAL logic flow. RCCAL 
theory is presented in Appendix F. 

5.8.1 Sample Problem Using ERN/MESS Technique 

The optics housing of the High Altitude Observatory (HAD) 
solar telescope, which is mounted on the Skylab Apollo Telescope 
Mount, is shown in Figure 5-9. Both the original enclosure and 
the modularized enclosure are shown along with the ERNs and the 
MESS nodes. Figure 5-10 shows the nodal breakdown for the enclo- 
sure. 


TRASYS input for subenclosure 1 (see Figure 5-9) is shown 
in Figure 5-11. The TRASYS-RCCAL segment output is shown in Ap- 
pendix H. 
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MODULARIZED ENCLOSURE 




Figure 5~9 HAO Experiment Optias Housing Modularised Enclosures 
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Figure 5-10 Apollo Telescope Mount HAO Experiment 
Optics Housing Sample Problem 
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IQOTAH 

« 

NOT APh 

♦ 

PALM 

9 

R PL. A N 

9 

N M C Sb 

9 

\ s p n n 

9 

I PL. At L 

9 

I A 1 

9 

mstpl 




NO I 

9 

NO IP 

9 

NGH 1 K 

9 

N ‘ r R I R P 

9 

mi j r 

9 

tv RAN 

t 

NSCW 3 

» 

tsi f y 

1 

NPL SR 

9 

IN SON TL 

9 

OSH ADO 

9 

N T R A J 

9 

NUSER1 

9 

oust * 7 

9 

K T R A J 

9 

KR so 


T I FLt 

(11) 

♦ 

MODtLN 

9 

DTt 

9 

LI Nt 

9 

IHSTfcP 


rjPNNP ( 6 ) 


9 

NPVU Cfe) 


9 

7 N p :3C l. 

( 6 ) 


9 

i op nrifi) 


9 

(iPRO l ( b « b ) 

f 

OPSCLR ib) 


9 

OPRPLN 

( b) 


9 

OPT IMP (6) 



INI) X 

( i 0 1 H ! 


I NOXS 

( 

i ) 


I NOXN 

( 

1 ) 


DIMS ( J 

» 

1 > 


OS i H 

( s » 

1 ) 


I F S 

( 

1 ) 


IKS 

( 

1 > 


PR 

( p * 

1 ) 


PbH 

( 4 « 

i ) 


f S T R 

( 3* 

3* 1 


A L. P H 

( 

i ) 


A K F A 

< 

i ) 


T'MSb 

< 

i ) 


S R J R 

( 

1 > 


PI 

9 

M A X H C * 

1 0 VL 

9 

N S T E P « 

0 I NlOSrt 

9 

DIPNCH ^ 

F FfSiOSH 

9 

FFPNCH * 

IRKCN 

9 

RKMIN v 

Rk TAPP 

9 

SIGMA » 

I TRCbO 

9 

I T RC6 0 » 

I ThChO 

« 

I TRCCO ♦ 

I AySOS 

9 

I AO SO A » 

0 0 F M P F 

9 

00 r MPF 9 

ropnch 

9 

100 TMfc. , 

k F R A C 

9 

JMFSS » 

N 5 F T 

9 

N b F u i 

IAS 

9 

I'RUANF 9 

i N F F 


• NFFR 

* NOR SO 


9 N (? H b 0 R 

•> N S C R i 


* NSC.RC 

? N T OR 


9 NPLS 

* N P U N 


9 NRCOOU 

i N R S 0 


» NR TO 

9 KBCOU'i 
9 K ^ T O 

* KSHAOO 


. rtTlTLfctil) 

♦ IMF. » I P A 6 1 

. np ri r ( n) 

« ZNPFOr ( 6 ♦ S ) 

* I OPNNP ( 6 ) 

. IOPNVU(b) 

» ops Cl ic) 

t lOPNZ 
« OP TRUE < 6) 
i op r i ms { ti ) 


NN 

rtSSTEP 

FFACC 

FFPHlMT 

IKKNGR 

I TPC1 0 

ITRC7 0 

I T PCD 0 

IAUSDP 

OORMPF 

NHCObK 

ISPNO 

ISOLFL 

IRUAN1 



A- 5 


COMMON BLOCKS FOR AQCAL (CONT.) 



COMMON 

/SRSO / 


SR SO ( 


I ) 






COMMON 

/TKIR / 


TRIP ( 


I ) 






COMMON 

/TKSO / 


TRSO ( 


1 ) 






COMMON 

/NODE / 


MODE < 


1 ) 






COMMON 

/GO TEMP/ 


ODTEMP { 


1 ) 






COMMON 

/OMB IT / 


ALAN 

9 

ASUN 

9 

PSD 

9 

OtoP 

1 



9 

ECC 

9 

I OHNT 

9 

I ORB I T 

9 

PERIOD 

2 



9 

wss 

9 

PAL.B 

9 

PRAD 

9 

RSUN 

i 



9 

C l DMAS 

9 

BETAS 

9 

APER 

9 

WD3 

4 



9 

WSUN 

9 

timest 

9 

TIMEPR 

9 

TRUEAN 

b 



9 

SOL 

9 

ISKPSO 

9 

ORAV 

9 

OINC 

6 



» 

HA 

9 

HP 

9 

SUNRA 

9 

STRRA 

7 



9 

strdec 

9 

sundlc 

9 

CIGMA 

9 

BETA 

8 



9 

RThE T 

9 

ORNT (.39 

3) 


9 

SPINT<3»3) 

9 



9 

ICALFL 

9 

NSPFF 

9 

CLOCK 

9 

CONE 

0 



9 

RATE 

9 

RO T X 

9 

ROT Y 

9 

ROTZ 

1 



9 

IROTX 

9 

IROTY 

9 

IROTZ 

9 

PNAME 

? 



9 

ISF T 

9 

pltype: 

9 

IN SHAD 

9 

shad in 

3 



9 

SMAOUT 

9 

SUNCL 

9 

SUNCU 

9 

PLCL 

4 



9 

PI CO 

9 

T I MSP 






COMMON 

/dstore/ 


10STR (12, 

3) 






COMMON 

/ISTPDK/ 


I STROP ( 


1 ) 






COMMON 

/NSPEC / 


NSPEC 








COMMON 

/PLOTTP/ 


I PL UNT 

9 

PLCR7F 

9 

PLXMPF 

9 

PL YMPF 

] 



9 

I PL *JA 

9 

IPLSN 

9 

PL.LABX (b) 


? 



9 

PLLAbY (5) 


9 

PITITi ( 10) 


3 



9 

PLTIT? (12) 







COMMON 

/AQODS / 


0D3 ( 


i ) 






COMMON 

/A GOOD / 


ODR ( 


1 ) 






COMMON 

/AGQDP / 


OOP ( 


1 ) 






COMMON 

/O AS / 


CAS ( 


1 ) 






COMMON 

CQAR / 


OAR ( 


1 ) 






COMMON 

/ (,' A P / 


UAP ( 


I) 






COMMON 

/GrtSO / 


GBSO ( 


1) 






COMMON 

/CHIP / 


GBIR ( 


l ) 






COMMON 

/AQTEMP/ 


AQTEMP ( 


1) 







S ~c 


A-6 


COMMON BLOCKS FOR DICAL 


1 

?. 

3 

4 


7 

} 

d 

1 

d 

3 

4 
3 

7 


COMMON /CCOMST/ DTP » RT!) ♦ PI ♦ MAXbC » NN 

* NS * NNOU i NsURF % I OVL i NSIEP » NS STEP 

. NbLKLN * 0 I A C C « 0 1 ACCS . DINOSH « OIPNCH ♦ FFACC 

* FFACCb * FFM-IN , FFPATL * FFNOSH , FFPNCrt » FFPRNT 

« I G H S F F •> b B W B N D t R K A M P ? * I R K. C N » RKMIN ♦ I R K N G 3 

» IRKNSP > PKPNCP * Bk. SP * RKTAPE » SIGMA ♦ ITRClO 

, ITRCPO » ITRC3U i ITRC40 , I TRCbO ♦ ITRCbO * ITHC70 

« ITRC30 * ITPCR'O « I TkC A 0 « ITRCbU * I TRCCO i 1TRCO0 

* ITRALL o IAOGHI V lAQGPS , IAuSUS * I AGSDA i 1AOSDP 

* IQOARV » IQOCUR » OOAMPF , UOFMPF , UOTMPF , OORMPF 

« QOTYPfc. * I U u TAG , GOTAPE * QOPNCH « IQOTME , NBCOSK 

* RSOLAP » PALP i P P L A N * PFPAC * I M E 5 S * ISPNO 

* NERN i N to ESS i NSPNO » NSFT » NbFO i ISOLFL 

i IAL3FL » IPLAFL i I A I » IAS '» TRUANF , ThUANI 

« NS TSOI. ? MS T PL 


COMMON 

/TAPE 

/ 


M'O I 

9 

NO IP 

* NFF » 

NFFR 




' 9 

NOB I P 

9 

NGBIPP 

» NftbSO » 

NGBSOft 




9 

nOu T 

9 

NP AN 

i NSCPi » 

NSCR2 




9 

J'l S c p 3 

9 

N TO 

i N T 0 R i 

NPLS 




9 

M P L S P 

9 

nsontl 

» NPUN i 

NBCUOU 




9 

MS H ADO 

9 

nTKAJ 

» NR SO 

NPTO 




9 

NlfSEPI 

9 

NUSFH? 

, KBCDffU « 

KSHADO 




9 

K T P A J 

9 

KR SO 

♦ K W TO 


COMMON 

/TITLE 

/ 


TITLE 

Ml) 


» NriTLc.ni) 




f 

MOoELN 

9 

DTE 

♦ TME » 

I PAGE” 




9 

L I Nc 

9 

1HSTER 



COMMON 

/PLOT 

/ 


NPNNP ( 6 ) 


, NPTIT(R) 





9 

NPVU ( b ) 


, ZNPRO T ( b » 

b) 




9 

/NPSCL 

h ) 


* I OPNNP ( 6 ) 





9 

i op nr (6) 


f lOPNVU(b) 





9 

op po r i 6 ♦ s ) 


» OPSCL(b) 





9 

O P S C L R (b) 


» IOPNV 





9 

OPPPLN 

! b ) 


♦ OP TRUE ( 6 ) 





9 

UP T IMP C6) 


, OPTIMS(b) 


common 

/ 1 NO A 

/ 


I N O' X 

( iO]R) 



COMMON 

/I NO AS 

/ 


INUXS 


1 ) 



roMMON 

/ 1 NO AN 

/ 


I N ij X N 


1 ) 



COMMON 

/O IMS 

/ 

a 

0 I M s ( .1 


i ) 



common 

/US TP 

/ 


ns i p 

! h i 

1 ) 



r omni ON 

/IPS 

/ 


IFS 


1 ) 



COMMON 

/I*S 

/ 


ns 


1 ) 



COMMON 

/PP 

/ 


p p 

? i 

1 ) 



COMMON 

/PSh 

/ 


p Sh 

! A- t 

) ) 



COMMON 

/tstp 

/ 


TSTR 

3 ♦ 

, 1 ) 



Common 

/ALPH 

/ 


i\ L P H 


1 ) 



common 

/ ARE A 

/ 


A P t A 


1 ) 



COMMON 

/KM i SS 

/ 


E v i S b 


I ) 



COMMON 

X 

M". 

X 

r 

/ 


-j f ■ i P 

1 . 

I ) 



COMMON 

/SR SO 

/ 


■-> P p 0 


i ) 



common 

/ ! P ! P 

/ 


T - J t H 


1 ) 



COMMON 

/l ^ S •' / 

/ 


1 ■" S 0 


l ) 





COMMON BLOCKS FOR DICAL (COOT.) 



Common 

/NODE / 


NODE ( 

1 ) 






COMMON 

/no (>: ah/ 


oo r t -MP t 

1 ) 






COMMON 

/OHM I T / 


ALAN 

« ASUN 

9 

PSD 

9 

DtoP 

] 



9 

F CC 

f 1 0 k N T 

9 

IOKHIT 

9 

PERIOD 

2 



9 

wSS 

♦ PALP 

9 

PH AD 

9 

HSUN 

3 



9 

C I DMAS 

, be r AS 

9 

APtH ' 

9 

WDS 

4 



9 

w sun 

* r i most 

9 

T I ME PH 

9 

TRUEAN 

b 



9 

SOL 

* ISKPSO 

9 

GHAV 

9 

OINC 

b 



9 

r> A 

, tfP 

9 

SUNK A 

9 

STHHA ‘ 

7 



9 

STHOtC. 

* suNoec 

f 

C I G M A 

9 

be r A 

H 



9 

PThLI 

y OH N T ■( 3 » 

3) 


9 

SPINT (3,3) 

9 



9 

ICALFL 

, nspff 

t 

CLOCK 

9 

CONE 

0 



9 

HAT t 

« HO T X 

9 

POTY 

9 

ROTZ 

1 



9 

i«orx 

* JhOTY 

9 

1H0TZ 

9 

PNAME 

2 



9 

ISF T 

» PLTYPt 

9 

INSHAD 

9 

SHAOIN 

0 



9 

s h a o u r 

♦ SUNCL 

9 

SUNCO 

9 

PLCL 

4 



9 

CO 

, IIMSP 






COMMON 

/l)S109r / 


luSiH ( 1 A * 3 ) 






COMMON 

/TSTPfW 


ISTPOH ( 

1 ) 






COMMON 

/.XlSPEC / 


NSPEC 







COMMON 

/PL OT Jh / 


! PL UN I 

y PLCPVF 

9 

PLXMPF 

9 

plympf 

1 



9 

T PL N A 

y IPLSN 

9 

PLLArtX (5) 


? 



9 

PLLABY (S) 

9 

PL f 1 T l (10) 


3 



9 

PLT I"? 2 ( 12 ) 






C n mm 0 N 

/I Sham / 


I SH.AU ( 

1 ) 






COMMON 

/OOP / 


OOP ! 

1 ) 






COMMON 

/ ■} > ) K / 


OOP t 

1 ) 






COMMON 

/ons / 


OOP ( 

1 ) 







COMMON BLOCKS FOR FFCAL 



COMMON 

/c 

CONST/ 


OTP 

, pth 

9 

PI 9 

■MAX 8 C 9 

NN 

* 


« 

NS 

9 

NMOIS 

9 N S 0 R F 

<* 

IOVL * 

NSTF.P 9 

NSSTEP 

A 


* 

nmlkln 

» 

01 ACC 

« 01 ACCS 


D I NOSH * 

DIPNCH 9 

FFACC 

« 



FF ACCS 

9 

F F M i N 

* FFpATL 

* 

F F N 0 S h * 

r FPNCH 9 

F FPRNT 

• 



IGBSFF 

9 

G B * B f 1 0 

9 KKAMPF 


IRK C N ? 

R K M I N 9 

IpKNGB 




IRKNSP 

9 

RKRNCH 

» RKSP 

* 

RKTAPE * 

S I G M A 9 

I TWC10 




I T»CcO 

9 

ITPC30 

» ITRC40 

* 

1 I RCSO • 

ITRC60 ♦ 

ITRC70 

• 


f 

'ITRCHO 

9 

i r k c o 

9 ItPCAO 

T 

ITRCfiO » 

ITRCCO 9 

ITRCOO 

• 


* 

I TRALL 

9 

I A 0 6 b I 

♦ I A OOPS 

♦ 

I A 0 S 0 s • 

IA0SDA 9 

I aqsdp 



♦ 

InOARY 

9 

IOOCOR 

« roampf 


CjOFMPF 9 

GlOTMPF 9 

(JORMPF 

•* 



UQTYRE 

9 

I no Tab 

« (JOT APE 


OOPNCH 9 

1 0 0 T M t 9 

NBCDSk 

A 


9 

RSOLAK 

9 

PA! H 

. PPL AN 

9 

RFR AC 9 

I MESS 9 

ISPND 

<» 


9 

Nfc RN 

9 

N m L S S 

. mgpnd 

9 

NSFT « 

N S F 0 9 

ISOLFL 

A 


« 

IALBFL 

9 

I PL AF L 

» i A I 

9 

IAS 9 

TRUANF * 

truant 

A 


« 

NpTSOL 

9 

NS T PL 

' 






COMMON 

/TAME / 


NO! 

» NO' IP 


9 NFF 

» NFF R 


1 




9 

NGN 1 R 

* ngbirr 


9 ngbso 

♦ N G 8 S 0 Fi 


P 




9 

nou r 

» NPAN 


9 NSCR1 

» NSCR? 


3 




9 

NSCR3 

* NT 0 


9 nTOR 

9 NPLS 


4 





NPLSR 

» nSONFL 


» npun 

9 NBCDOU 


3 




9 

NSHALiO 

? N T R A J 


9 NRSO 

9 NR TO 


6 




9 

NUSfeKI 

9 nUpFH/ 


9 KBCDOU 

9 K SH ADO 

7 




9 

K TRAJ 

. KPSO 


9 K R T 0 




COMMON 

/title / 


TITLt (11> 


. NT IT L E < II ) 


1 




9 

MOOELN 

9 DTE 


9 TME 

9 IPAGE 


2 




9 

LINE 

* I H S T t P 






COMMON 

/PLOT / 


NPNNP ( 6 ) 


* NPT I T < R) 


1 




9 

NP VU ( R ) 



9 7 NPR 0 T ( b 9 6 ) 

• 

p 




9 

ZNHSCL ( 6 ) 


9 I 0 PNNP(o) 


3 




9 

IOPTIT(h) 


9 IOPNVU(b) 


4 




9 

OP NO i (6 

*6) 


9 OPSCL(O) 


3 




9 

OPSCLP ( 6 ) 


9 IOPNV 



6 




9 

OPRPLN lb) 


9 OPTRUE(fo) 


7 




9 

OPTIMP (<s) 


9 OPT IMS (b) 



COMMON 

/INOX 

/ 

INUX 

{ 1 0 1 R ) 


COMMON 

/ JNIMS 

/ 

I MUXS 

{ 

I ) 


COMMON 

/ I NOXN 

/ 

INOXn 

( 

I ) 


COMMON 

/ 0 I M S 

/ 

DIMS ( 3 

9 

1 ) 


common 

/ OS T R 

/ 

DSTR 

{ S 9 


1 ) 

COMMON 

/TPS 

/ 

1 FS 

( 

1 ) 


COMMON 

/IKS 

/ 

IKS 

( 

1 ) 


COMMON 

/P K 

/ 

PR 

(?9 


1 > 

COMMON 

/P SH 

/ 

PSH 

( 4 9 


1 ! 

COMMON 

/rs Ik 

/ 

TSTR 

(3*39 



common 

/A [.PH 

/ 

AL PH 

( 

i ) 


COMMON 

/AREA 

/ 

/ 

A R F A 

( 

i 5 


COMMON 

/ F M I S S 

/ 

E m I SS 

( 

1 ) 


C o m M 0 N 

/Sr I R 

/ 

SR I R 

( 

I ) 


COMMON 

/SrSu 

/ 

SRSO 

( 

i ) 


COMMON 

/ T R I ft 

/ 

TRIP 

( 

] ) 


COMMON 

/T*SO 

/ 

I RSO 

( 

1 ) 


Common 

/ NODE 

/ 

NODE 

( 

i ) 


COMMON 

/ 0 0 T E m P / 

0 0 T E" M P 

( 

i ) 




COMMON BLOCKS FOR FFCAL (CONT.) 



COMMON 

/ORBIT / 


ft L ft N 

*1 

A SUN 

9 

PSD 

9 

OWP 

1 



9 

ECO 

9 

I OP NT 

9 

I ORB I r 

9 

PERIOD 




9 

v>'SS 

9 

PALP 


p P A P 

9 

R SUN 

-J 



9 

C 1 0 M A 5 

9 

HE T AS 

9 

ft PER 

9 

*ns 

4 



9 

v> SON 

9 

T IMF ST 

9 

T I ME PH 

t 

true an 

b 



9 

Sot. 

9 

I SAP SO 

9 

GRAV 

♦ 

OINC 

6 



9 

HA 

9 

HP 

9 

SUNR A 

9 

STRRA 

7 



9 

ST R 0 1 C 

9 

SUNOLC 

9 

CIGNA 

9 

BET A 

8 



9 

rthe t 

9 

OR NT ( 3 « 

3) 


9 

SPINT (3,3) 

<-) 



9 

icalfl 

9 

NSFp F 

9 

CLOCK 

9 

CONE 

0 



9 

H ft T E 

9 

ROT X 

9 

POTY 

9 

ROT/ 

.1 



9 

IHOTX 

9 ' 

IROTY 

9 

I ROT/ 

9 

PNAME 

?. 



9 

i sf r 

9 

PL TYPE 

9 

INSHAtJ 

9 

SHAD IN 

3 



9 

S h a 0 U T 

9 

SUNCL 

9 

SUNCO 

9 

PLCL 

4 



* 

?LCO 

9 

T I MSP 






COMMON 

/ds ropf / 


I OS TP ( i C i 

3 5 






COMMON 

/ ib tpor/ 


IbT Pt'R ( 


1 ) 






c 0 M M 0 f\t 

/NSPfcC / 


NSPEC 








COMMON 

/PLOT 1 r>J 


I PL UN T 

9 

PLCRYF 

9 

PLXMPF 

9 

plympf 

1 



9 

IP1..NA 

9 

IPLSN 

9 

PLLAbX <55 


? 



9 

PLLAbY <b) 


9 

PLTIT1 (10) 


3 



9 

PL T I r? { 13) 







COMMON 

/FF^ALi/ 


FFV'AL I < 


1 ) 






COMMON 

/ F F V ft L b / 


F F V A L S t 


1 5 






common 

/FFbctOC/ 


I SHAD ( 


1 5 






COMMON 

/CFSOMC/ 


SUM ( 

i ) 








£• U> AJ 


COMMON BLOCKS FOR GBCAL 


A- 10 



COMMON 

/CCOnS T / 


OT R 

• 


* 

NS 

9 

NNOl) 

» 


9 

NBLKLN 

9 

DIACC 

a 


9 

FFACCS 

9 

FFMIN 

• 


9 

I GBSFF 

9 

Ci d ‘A B N 0 

• 


9 

I rknsp 

9 

PKPNCH 

• 


9 

i trc?o 

9 

T TRCJO 

• 


e 

I TRCBO 

9 

I T PCVO 

• 


9 

I TP ALL 

9 

T AuGb I 

9 


9 

TuOARY 

9 

IQOCOR 

a 


9 

QOTYPf, 

9 

I qo Tab 

9 


9 

RSOL AR 

9 

RALB 

O 


9 

N E R N 

9 

NM'tSIS 

9 


9 

IAL.HFL 

9 

iplafl 

9 


« 

MSTSOL 

9 

MSI PL 


COMMON 

/TAP F / 


NO I 

1 




9 

NGB I K 


RT 0 

9 

PI 

9 

MAXbC 

9 

NN 

NSURF 

9 

TOVL 

9 

NSTEP 

9 

NS STEP 

0 I A CCS 

9 

OINOSH 

9 

DIPNCH 

9 

F FACC 

i- F R A T L 

9 

FF NOSH 

9 

FF.PNCH 

9 

FFPRNT 

PKAMPF 

9 

IRKCN 

9 

RKMIN 


IHKNGH 

RKSP 

9 

H'K TAPE 

9 

SIGMA 

9 

1TRCI0 

I T R C 4 0 

9 

I THCbO 

9 

IT'RCbO 

9 

1 TRC 70 

I T PC AO 

9 

ITRCbO 

9 

I TKCCO 

9 

l TRCOO 

I AUGBS 

9 

1 AuSOS 

9 

IAQSOA 

9 

i an sop 

l-' DAMP F 

9 

C'OFMPF 

* 

UOTMPF 

9 

UOKMPF 

POTAPt 

9 

QOPNCH 

9 

1 00 T ME 

9 

nbcdsk 

PPL AN 

9 

RFRAC 

9 

ImFSS 

9 

1SPND 

NSPNO 

9 

NSFT 

9 

NSFO 

9 

isolfl 

I A I 

9 

IAS 

t 

TRUANF 

9 

TRUANI 

Ml) I R 


* NFF 


* NFFR 




MGB I Rft f NGrtSO » NGbSOP 





9 

NOUT 

9 

INK AM 




9 

NSCPJ 

9 

NTO 




9 

N p L SR 

9 

NS UN T L 




9 

NSHAOO 

9 

NTka J 




9 

NUSER1 

9 

NUSF RP 




9 

K T HA J 

9 

NRSO 

COMMON 

/TI TLF 

/ 


TT TLE 

(ID 





9 

MOCF.LN 

9 

DTE 




9 

LJ YE 

9 

1 HST tP 

COMMON 

/PLOT 

/ 


MPNNP ( b ) 





9 

NP YU ( n ) 





9 

ZNPSCL ( b ) 





9 

IOPTIT (6) 





9 

OPR0T |fn6) 





9 

OPSCLR ( 6 ) 





9 

OPRPLN (6 ) 

** 




9 

OPT I MP ( b ) 


COMMON 

/TNG/ 

/ 


i NO X 

( i o is) 

COMMON 

/INUXS 

/ 


I N 0 X S 

( 

] ) 

COMMON 

/ T NO XN 

/ 


I N 0 X N 

( 

1 ) 

COMMON 

/niMS 

/ 


DIMS ( 3 

t 

1 ) 

COMMON 

/ D S T p 

/ 


f) S T R 

( b i 

i> 

COMMON 

/TFS 

/ 


I F S 

1 

1 ) 

COMMON 

/IkS 

/ 


IKS 

( 

i ) 

COMMON 

/PR 

/ 


PR 

( <?» 

1 ) 

COMMON 

/PSH 

/ 


PSH 

{ 4 » 

l ) 

r o m M o N 

/ts r h 

/ 


TSTR 

( 3 * J 

* 1 ) 

COMMON 

/ AL p H 

/ 


ALPH 

( 

1 ) 

common 

/ A R FI A 

/ 


A PEA 

( 

i ) 

COMMON 

/ F M I S S 

/ 


F M 1 s 3 

( 

1 ) 

COMMON 

/SR Ik 

/ 


SP1R 

( 

i ) 

COMMON 

/ S R S 0 

/ 


SRSO 

( 

i ) 

COMMON 

/ T R I R 

/ 


TRIP 

( 

I ) 

COMMON 

/IPSO 

/ 


TkSO 

( 

i ) 

COMMON 

/ \ 0 0 E 

/ 

\ 

NODE 

( 

] ) 

COMMON 

/ 0 1 > T E M r 

V 


i>l •• f t MR ( 

1 i 


» NSCR1 » NSCW<? 

» NT OK * NPLS 

» NPUN » NbCDOU 

♦ NRSO » NR T 0 

♦ KBCOOU ♦ KSHADO 

♦ krto 

♦ NTITLfc(ll) 

♦ T M E » I P A G F 

♦ (V P T I T ( 9 ) 

? ZNP»OT(b*b) 

« lOPNNP(b) 

♦ 10PNVU(6) 

» OPSCL(fc) 

» IOPNV 

♦ OPTPUt ( 6 )' 
t OPT I MS ( 6 ) 
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COMMON BLOCKS FOR GBCAL (CONT.) 



common 

/CWMfT / 


A 1 . A *\* 

9 

A bur. 

* PSD 

t 

DWP 

] 



9 

i- rr 

» . V v> 

9 

i 0 P N 1 

♦ I UPH X i 

9 

PE.H IOO 

? 



9 

V' b b 


P A L P 

9 HP At) 

9 

PbUN 

4 



9 

t" I ■: • M A . > 

9 

r‘ t. 1 A b 

♦ A R h P 

9 

POS 

4 



9 

iVbUN 

9 

i i-Mf s r 

9 TlMt Ph 

9 

I P UP AN 

r.. 



9 

SOL 

t 

I SK. Ob!) 

♦ 0 P A V 

9 

OINC 

6 



9 

HA 

9 

HP 

9 SUNPA 

9 

STPPA 

7 



* 

STPJt: C 

9 

SUN Of 0 

» CI&Mfl 

9 

HP I A 

P 



• 

R 1 H K r 

9 

CRN T < 3 * 3 ) 

9 

SP I NT (3,3) 

U 



* 

[ (. A L * t. 

9 

NSPFf 

9 CLOCK 

t 

CONfc 

0 



9 

-> A 1 p 

9 

POf X 

9 POTY 

9 

POT / 

1 



9 

I ( i L A 

9 

I POT Y 

» I POT/ 

9 

PNAMf 

? 



9 

i bh 1 

9 

PL. T YPr. 

* I N S H A i ) 

9 

S H A D L N 

3 



9 

bn A OUT 

9 

SON CL 

» SUNCO 

9 

PL CL 

4 



9 

PI. CO 

9 

i I M 5 P 





COMMON 

/i ) 3 T OOf / 


i OS TV 

< lC 9 

3) 





COMMON 

/ I >1 POM/ 


r s t p o p 

( 

1 ) 





COMMON 

/NS PRO / 


N S P h. C 







COMMON 

/PL. GT TP/ 


I PL ON T 

9 

P L L P V f 

9 PLXMPF 

t 

PLYMPP 

1 



9 

1 Pi.NA 

9 

(PL So 

9 PLLAbX(S) 


? 



9 

‘-ML. AC V ( b ) 


9 PLTI ri (10) 


3 



9 

ml U I P 

Lie) 






COMM ON 

/ F {■ 


f- a ( 


i ) 





COMMON 

/Sh'ACf / 


•■> p A C f. 

I 

1 i 





COMMON 

/.*SPAO' / 


X b P ft C !: 

( 

l ) 
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COMMON BLOCKS FOR NPLOT 



r (\ h< ;■* ( ) 

/re 

ons i / 


DTP 

9 K f 0 * 

PI - 

M A ARC * 

Nto 

* 



'■■J v > 

0 

M Ns ■ ) i ‘ 

« S 1 i P F * 

JO VI. * 

to S T F, P 9 

MSS ; FP 



* 

N -j I k l to 

0 

O 1 a Co 

. LJACCS •. 

DIM OSH ♦ 

O I P.TCh 9 

FF ACC 

• 


• 

FKACCi 

< 

F f- M 1 N 

« c t- P A T L ■» 

KFNOSh * 

Ff-VNCH 9 

F F P R to T 

« 


• 

1 ; P ;.■> K F 

0 

i j »i yJ r< i\J **j 

♦ PKaPPF . 

IRK CM * 

P K to I N 9 

I R K to G H 

• 


* 

I 9KM SP 

9 

KK PNdrl 

9 P K b P 9 

PK.TAPh » 

SI DMA 9 

ITKC 10 

• 


* 

I T P C P 0 

9 

) I PC JO 

9 j T K C 4 0 • 

I T to C to 0 » 

I 1 to C 0 0 9 

i r to c 7 0 

* 


0 

I'fpcyo 

9 

1 1 P C p U 

9 T T K C A 0 • 

I TtoCHO , 

1 l PCCO 9 

I T P C 0 0 

« 


* 

I Tw.fi LI 

9 

I A Li (St ) 1 

. I AC DPS < 

lA(ySDS 9 

IAGSDA ♦ 

I AQSOP 

• 


0 

luOAP r 

9 

1 QOCOP 

, NOAMPF 9 

OOF'APF » 

OOTMPF » 

OORMPF 

0 


0 

OOTYPF 

9 

T 0 ( i T w 

■» UOT APfc « 

QOPitoCto « 

i qo r m t 9 

todCDSK 

• 


* 

H SOLAR 

9 

R fi L H 

9 PPL AM * 

to F to f C 9 

I MESS * 

I F>PtoiJ 

m 


0 

NKPM 

9 

N *■- h S S 

« ?iSPto[) « 

to’ SP T 9 

N S F 0 9 

ISOLFL. 

* 


* 

I At. PH l 

9 

1 1 L A T L. 

.Ml * 

IAS 9 

TRUANF 9 

truant 

0 


0 

to STS G L, 

9 

MS T PL 






r Q m m 0 N 

/TAPE:' / 


JD J 

» ton ip 

9 NFL 

9 NFFR 


J 




9 

Mill-! I R 

* to to to 1 p p 

9 M (j B S 0 

t NG8S0P 


Z 




9 

NDU T 

9 to P A L 

9 to SCR 1 

9 to S C R Z 


to 




9 

NSC* to 

9 to T to 

9 to T Q to 

9 MPLS 


4 




9 

N P t SH 

» N S to N T ! . 

9 NPUM 

9 N r C D 0 L 


t-. 




9 

N S n A D 0 

9 M TRA J 

9 top SO 

9 NPTO 


h 




0 

Ml^tH ] 

« M 0 to F R P 

9 kcscdou 

t KSHADO 


! 




0 

< T R A J 

, KPSO 

9 K P I () 




rn,/Mnn 

/ T ] T'LF / 


T I 1 Lt 

( 1 1 ) 

. N r I ILL ( 1 i ) 


} 




* 

to 0 ' ! t L to 

9 i j T t. 

9 IMF 

9 I P A G F 


C 




f 

LINE. 

9 I P S T r P 





r c m v o m 

/P|_ 

OT / 


to y NtoP ( o ) 

9 toP 1 I T M ) 


1 




9 

top V J < to ) 

9 7 NppO T 

1696 ) 


P 




9 

7 top SCI. 

( to ) 

9 I OP MNP ( 6 ) 


to 




9 

IOPT J T (to) 

9 I OPNVU ( 6 ) 


A 




9 

OPPO I ! 

Dltl) 

9 OP toCL ( b ) 






9 

OPSCLw (to) 

9 I 0 P to V 



(■. 




9 

OP k PL to i to) 

9 Op T PUt ( b ) 


J 




9 

OPT I HP ( 6 ) 

9 OPT IMS (b) 



r 0 m m 0 to 

/ T to 0 X 

/ 

INDX 

! 1019) 

c: 0 m m n n 

/INOXS 

/ 

INOXS 

( 

1 i 

r 0 M m 0 M 

•/ini: x n 

/ 

I iMPXN 

( 

1 ) 

COMMON 

/DIMS 

/ 

DIMS ( 

to 9 

1 ) 

COMMON 

/ D S T R 

/ 

OS IP 

(09 

1 ) 

COMMON 

/IPS 

/ 

IF S 

( 

L ) 

common 

/TPS 

/ 

i/S 

( 

j ) 

COMMON 

/PH 

/ 

Ph 

( P 9 

l ) 

C 0 to M 0 to 

/PSH 

/ 

P Sh 

( A 9 

I ) 

c n iv! M 0 M 

/ t s r p 

/ 

T cTP 

( to » to » 


C 0 M M 0 to 

/ A 1. P H 

/ 

A i. PH 

( 

1 ) 

COMMON 

/ A K t A 

/ 

AR c A 

( 

I ) 

r 0 m m 0 to 

/ F M I S S 

/ 

F to T ’to S 

( 

1 ! 

COMMON 

/ S R I k 

/ 

SP IR 

( 

1 ) 

COMMON 

/ S P s 0 

/ 

S h s 0 

( 

1 ) 

r n M M 0 to 

/To IP 

/ 

TP f H 

( 

1 ) 

0 0 m m 0 

/ T h S 0 

/ 

T P S 0 

( 

i ) 

C 1 1 M M 0 N 

/NODE 

/ 

to 1 i !,j £■_ 


i ) 

r 0 94 o (j jy 

/DO TFMr 

-V 

00 TEN 

p ( 

1 ) 
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COMMON BLOCKS FOR NPLOT (CONT.) 



COMMON 

/CRM! r / 


Cl. AO 

9 

«i S U r\* 

• P S i ) 

9 

OFF 

1 



♦ 

r CC 

■» 

10P H 1 

« i 0 P HIT 

9 

p F K I 0 0 

f' 



* 

'■v 3 S 

9 

PALM 

t P ft A 0 

9 

hi SUN 

3 



9 

C ! OMAN 

9 

r < h 1 A S 

• A P F H 

9 

FOR 

A 



9 

■■V S |J N 

4 

I T Ml- | 

i I IFF P P 

9 

1 R U E A N 

s 



* 

SOL. 

* 

1 3Km:->0 

i G P A V 

9 

0 I NC 

h 




HA 

* 

HP 

. SONPA 

9 

STkRA 

l 



* 

STwOtC 


bUNOtC 

* C I 6 M A 

9 

SF.TA 

H 



9 

k T Ht T 

t 

OP NT ( 3 , 3) 

9 

SPIN! (3,3) 

Q 




ICALKL 

9 

MSP F F 

1 CLOCK 

9 

CONt. 

n 



* 

p AIL 

9 

Kt) ! A 

. HO TV 

9 

worz 

1 



V 

1RO! A 

9 

IkU f r 

» IHOTZ 

* 

P N A M t 

P 



1 

ISF X 


PL t Tr PF 

i I t’M S H A 0 

9 

SHAD IN 

3 



9 

Sh AOU f 

9 

SON CL 

♦ SON CO 

9 

PLCL 




* 

PL CO 

9 

1 1 MSP 





common 

/dstupf / 


I UhTR 

(IP* 

0 ) 





common 

/ i s r poh / 


I PI POP 

( 

1 ) 





r 0 M M o w 

/ N 3 P h C / 


N S P F C 







COMMON 

/plOTTR/ 


I PLUNT 

9 

PL Cp u F 

» PLXMPF 

9 

PLYMPF 

i 



* 

I puna 

9 

1 P L 3 N 

» PLLARX15) 


/ 



* 

PL.I.AH fib) 


, P L T 1 r 1 

(10) 


3 



* 

PL r I T? { 1 o ! 






COMMON 

/ vnP / 


MNP ( 

1 ) 







■-\j iT U 


COMMON BLOCKS FOR OPLOT 
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COMMON 

/COONS 1/ 


I) T K 

9 

h T D 

9 

PI 

9 

M AXPC 

1 

NN 



* 

NS 

* 

NMOO 

• 

NSUHF 

9 

1 0 V L 

9 

N STEP 

9 

N S S T E. P 



9 

nhlxln 

9 

D I A C C 

9 

01 ACCS 

9 

01 NOSH 

9 

OIPNCH 

9 

F F A C C 



• 

FF ACCS 

1 

E F M I N 

9 

FERATL 

9 

Ff NOSH 


F F P n C H 

9 

FFPRNT 



• 

1 6-3 SEE 

9 

GmWHNIJ 

9 

P* ampe 

9 

1RKCN 

9 

HRM IN 

9 

IHKNGB 



9 

IRKNSR 

9 

HKRNCH 

% 

RKbR 

9 

HKTAPE 

9 

SIGMA 

9 

1 f RC 1 0 



n 

I TRC<£0 

9 

I IRC JO 

9 

1 TRC41 

9 

I TrCSO 

9 

1 TRC60 

9 

I T k C 7 0 



9 

I TRCRO 

9 

1 1 RCVO 


1 IRC AO 

9 

I TRCBO 

9 

1TRCC0 

9 

ITRCOO 



* 

ITRALL 

9 

I AOGoI 

9 

I AO^db 

9 

IAUSOS 

9 

i AOSOA 

9 

I AOSUP 



9 

I UO ARY 

9 

I UOCOR 

9 

o 0 A M P F 

9 

OOEMPF 

9 

(jo r mpf 

9 

OORMPf 



• 

00 TYRE 

9 

I (JOT AH 

9 

00 T APE 

9 

QOPNCH 

9 

I 00 TME 

9 

NHCOSK 



9 

RSOL. AR 

9 

RALJ 

9 

RPLAN 

9 

HER AC 

9 

IMESS 

9 

1SPND 



9 

N E P N 


NmF Sb 

9 

NbPNi.) 

9 

NSE T 

9 

NSFO 

9 

1S0LFL 



9 

I A L R E L 

9 

1 P LAE L 

9 

I A] 

9 

I AS 

9 

1 RUANE 

9 

Truant 



9 

NSTSOL 

9 

NSTRL 










COMMON 

/T 

APE / 


NOT 


« N DIR 


i NEE 


» N E" F R 




1 ♦ NGPIR * ajGhIRR * N G H 0 » NGOSOR 

? f NOU 1 » NRAN * NSCR 1 « NSCK£ 

♦ NSCP3 ♦ nT Q » N fC(R « NPLS 

• nPLSR » NSOnI L * NPUN * MHCOOU 

♦ i'.SHAl/U » KiTk4J * NRSO « NR T 0 

» NUSEKl » NU$FK<? « KBCOOU « KSHADO 

, KTr>IX J » KRS) « KR TO 

COMMON /TITLE / T I I Lt { 1 1 > » NTJTLc(ii) 

* MOOLL.N » DTE « TmE * I PAGE 

» LINE ♦ IhSTEP 



common 

/PLOT 

/ 


NPNNP ( 6 ) 


9 

NR 1 I f < M ) 

1 




9 

NPV'J 1*-.) 


9 

ZNPR01 (6.R) 

d 




9 

/ N P S C 1. ( b ) 


9 

IOPNNP (fat 

3 




9 

top T IT (S) 


9 

IDPKfVU(E) 

4 




9 

OPROT <6,B) 


9 

OPSCL <b> 

S 




9 

OPSCLR ( b > 


9 

I OPN v 

b 




9 

0 P R P L N ( 6 ) 


9 

OPT PUL (6) 

7 




9 

OPT I MR (6) 


9 

OPT IMS (5) 


Common 

/INOX. 

/ 


1NLJX ( 101 G) 




COMMON 

/ TNOXS 

/ 


INDXS ( 

1 ) 




COMMON 

/1N0XN 

/ 


INUXN ( 

1 ) 




COMMON 

/P IMS 

/ 


0 l MS ( i » 

i ) 




COMMON 

/ n s r R 

/ 


0 S T R ( S * 

! ) 




COMMON 

/IPS 

/ 


IPS ( 

i > 




COMMON 

/IKS 

/ 


IKS ( 

I ) 




COMMON 

/PR 

/ 


PR ( d » 

1 ) 




COMMON 

/PSH 

/ 


PSH ( 4 , 

1 ) 




COMMON 

/TSTR 

/ 


T S 1 R ( J » J 

. I ) 




COMMON 

/ A L P H 

/ 


r 

'X 

i 

<» 

1 ) 




common 

/AREA 

/ 


A R t; A ( 

i ) 




c 0 M M o N 

/ F M I S S 

/ 


t M I S b ( 

I ) 




COMMON 

/SR IP 

/ 


SR Ik ( 

I ) 




common 

/Sr SO 

/ 


S K S 0 ( 

1 ) 




r 0 m m 0 i\j 

/ T R I R 

/ 


Tk I H ( 

j > 




Common 

/ T R S 0 

/ 


TPS 0 ( 

I ) 




C OMM ON 

/NODE 

/ 


('iUDF ( 

1 ) 




COMMON 

/ OD TEMP / 


00 1 t MR ( 

i ) 
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COMMON BLOCKS FOR OPLOT (CONT.) 



COMMON 

/ORBIT / 


ALAN 

> ASUN 

9 

PSD 

f 

DWP 

1 



9 

ECC 

* IOKNT 

♦ 

I ORB I T 

9 

PERIOD 

? 



9 

WSS 

» PALB 

9 

PRAD 

9 

RSUN 

3 



9 

CIGMAS 

, BETAS 

9 

APER 

9 

WDS 

4 



9 

WSUN 

» T I WEST 

9 

TIMEPR 

9 

TRUEAN 

5 



9 

SOL 

» ISKPSO 

9 

GRAV 

9 

OINC 

6 



9 

HA 

» HP 

9 

SUNRA 

9 

STRRA 

7 



9 

STRDEC 

» sundec 

9 

CIGMA 

9 

beta 

ft 



9 

RTHET 

, ORN T ( 3 » 

3) 


9 

SPINT (3,3) 

y 



9 

ICALFL 

» NSPFF 

9 

CLOCK 

9 

CONE 

0 



9 

RATE 

, ROTx 

9 

ROTY 

9 

ROT Z 

l 



9 

IROTX 

, IROTY 

9 

IROTZ 

9 

PNAME 

? 



9 

ISFT 

» PL TYPE 

» 

INSHAD 

9 

SHADIN 

3 



9 

SHAOUT 

» SUNCL 

9 

SUNCO 

9 

PLCL 

4 



9 

PLCO 

* T I MSP 






common 

/OSTORE/ 


IOSTR (12,3) 






COMMON 

/istpdn/ 


ISTPDR ( 

1 > 






COMMON 

/NSPEC / 


NSPEC 







COMMON 

/PLOTTR/ 


IPLUNT 

, PLCRVF 

t 

PLXMPF 

9 

plympf 

1 



♦ 

1PLNA 

, IPLSN 

9 

PLLABX (S) 


? 



9 

PLLABY (S) 

9 

PLTIT1 (10 


3 



9 

PLTI T2(12) 






COMMON 

/MSP / 


MSP ( 

1 ) 






COMMON 

/JSUHF / 


JSURF ( 

1) 
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COMMON BLOCKS FOR PLOT 



COMMON 

/CCONS T / 


OTR 

* KTD 

9 

PI » 

MAXRC * 

NN 

• 


9 

NS 

9 

NNOO 

» NSURF 

9 

IOVL ♦ 

NSTEP ♦ 

NSSTEP 

• 


9 

yd 

N6LKLN 

9 

01 ACC 

♦ 0 I ACCS 

9 

OlNOSH » 

0 I PNC H * 

FF ACC 

• 


9 

EFACCS 

9 

F F M I N 

♦ FFRATL 

9 

FFNOSH » 

FFPNCH * 

FFPRNT 

• 


9 

I OR SEE 

9 

GOWbND 

» kkampf 

9 

IRKCN i 

RKMIN ♦ 

IRKNGB 



9 

IRKNSP 

9 

RKPNCH 

♦ RKSP 

9 

RKTAPE ♦ 

SIGMA ♦ 

ITRC10 

• 


f 

ITRC20 

9 

I TRC30 

♦ ITRC40 

9 

ITPC50 » 

ITRC60 ♦ 

ITRC70 

• 


9 

ITRCBO 

9 

I TRC90 

♦ ITRCAO 

9 

I T RCB 0 * 

ITRCCO . 

ITRCDO 

* 


9 

itrall 

9 

I A OOF) I 

* I A Q b R S 

9 

IAOSOS t 

IAQSDA * 

IAGSDP 

• 


9 

IGOARY 

9 

IQOCOR 

* OOAMPF 

9 

UOFMPF » 

qotmpf ♦ 

OORMPF 

« 


9 

NO TYPE 

9 

1 00 TAB 

» OOTAPE 

9 

QOPNCH « 

I GO TME ♦ 

NBCOSK 

• 


9 

RSOLAR 

9 

RALH 

t rplan 

9 

RFRAC » 

IMESS * 

ISPND 

• 


9 

NERN 

9 

NMESS 

* MSPNO 

9 

NSFT , 

NSFO ♦ 

isolfl 

• 


9 

IALBEL 

9 

IPLAFL 

♦ I A I 

9 

IAS ♦ 

TRUANF ♦ 

truani 

• 


9 

nstsol 

9 

NSTPL 







COMMON 

/TAPE / 


NO I 

♦ NO IP 


♦ NF'F 

♦ NFFR 


1 




9 

NOB I K 

» NGBIRR 


» NGBSO 

♦ NGHSOR 


2 




9 

nout 

* NR AN 


♦ NSCR1 

» NSCR2 


3 




9 

NSCRJ 

♦ N TO 


* ntqr 

♦ NPLS 


4 




9 

NPLSR 

« nsqntl 


* NPUN 

♦ N8COOO 


5 




9 

NS.HAOO 

» N T R A J 


♦ NRSO 

t NR TO 


b 




9 

NOSER 1 

» NOSER 2 


♦ KRCDOO 

♦ KSHADO 


7 




9 

ktraj 

» KRSO 


♦ KRTO 




common 

/TITLE / 


TITLE ( 

11) 


♦ NTITLE (ID 


1 




9 

MOOELM 

♦ DTE 


♦ TME 

» IPAGE 


2 




9 

LINE 

* IHSTEP 






COMMON 

/PLOT / 


NRNNP ( b ) 


t NPTIT(y) 


1 




9 

NPVU(6) 



♦ ZNPROT (6*6) 


2 




9 

ZNPSCL (b) 


♦ IOPNNP(b) 


3 




9 

IOPTIT (b) 


* I OPNVU ( 6 ) 


4 




9 

OPROT ( b * 6 ) 


♦ OPSCL ( 

b) 


b 




9 

0 P S C L R ( 

6) 


» IOPNV 



b 




9 

OPRPLN ( 

b ) 


* OPTRUt 

(b) 


7 




9 

OR r IMP ( 

6) 


* OPTIMS 

(b) 



COMMON 

/INOX 

/ 

INOX 

( 101 

9) 

COMMON 

/INOXS 

/ 

INOXS 

( 

1 ) 

COMMON 

/ I NO XN 

/ 

INDXN 

< 

I ) 

COMMON 

/DIMS 

/ 

01 MS (3 

♦ 

1 ) 

COMMON 

/ostr 

/ 

OSTR 

( s * 

1 ) 

COMMON 

/IP'S 

/ 

IFS 

{ 

1 ) 

COMMON 

/IKS 

/ 

IKS 

( 

1 ) 

COMMON 

/PR 

/ 

PR 

(2* 

1 ) 

COMMON 

/PSH 

/ 

PSH 

(4* 

1) 

common 

/tstr 

/ 

TSTR 

13* it 

1 ) 

COMMON 

/alph 

/ 

alph 

{ 

1 ) 

COMMON 

/area 

/ 

AREA 

( 

1 ) 

COMMON 

/EMISS 

/ 

EMISS 

( 

1 ) 

COMMON 

/SRIR 

/ 

SRIR 

( 

1 ) 

COMMON 

/SRSO 

/ 

SRSO 

( 

1 ) 
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COMMON 

/TRIR 

/ 


TRIR ( 


1 > 





COMMON 

/TRSO 

/ 


TRSO ( 


1 ) 





common 

/NODE 

/ 


NODE ( 


1 ) 





TOMMON 

/OOTEM 

R/ 


OOTEMP ( 


1 ) 





COMMON 

/ORBIT 

/ 


ALAN 

9 

ASUN 

» PSD 

9 

DWP 

1 




9 

ECC 

9 

IORNT 

f IORRIT 

9 

PERIOD 

? 




9 

wss 

9 

PALB 

» PRAD 

9 

HSUN 

3 




» 

CIGMAS 

9 

betas 

* APER 

9 

*DS 

4 




9 

WSUN 

9 

timest 

» TIMEPR 

9 

TRUEAN 

S 




9 

SOL 

9 

ISKPSO 

♦ GRAV 

9 

OINC 

6 




9 

HA 

9 

HP 

♦ SUNRA 

9 

STRRA 

7 




1 

STRDEC 

9 

SUNOEC 

* CIGMA 

9 

beta 

B 




9 

rthet 

9 

ORNT (3*3 

) . 

9 

SPIN! <3» 

9 




9 

icalfl 

9 

NSPFF 

♦ CLOCK 

9 

CONE 

0 




9 

RATE 

9 

ROTX 

♦ ROTY 

9 

ROT/ 

i 




9 

I ROT X 


IROTT 

* I ROT/ 

f 

PNAME 

7 




9 

ISFT 

9 

PLTYPE 

i INSHAD 

9 

SHADIN 

3 




9 

SHAOUT 

9 

SUNCL 

♦ SUNCO 

9 

PLCL 

4 




9 

PL CO 

9 

T I MSP 





COMMON 

/OSTOPE/ 


IOSTR ( 

1<£ 

♦ 3 ) 





COMMON 

/ISTRDR/ 


ISTPOR < 


I ) 





COMMON 

/NSPEC 

/ 


NSPEC 







COMMON 

/PLOTTR/ 


IPLUNT 

9 

PLCRVF 

♦ PLXMPF 

9 

plympf 

1 




9 

IPLNA 

9 

IPLSN 

♦ PLL ABX ( 5 } 


? 




9 

PLLABY (5) 


* PLTIT1 (10 
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COMMON 

/CCONS7V 


DIR 

♦ RTD y 

PI ♦ 

MAXRC » 

NN 

• 


y NS 


f 

NNOD 

* NSURF y 

IOVL t 

NSTEP y 

NSSTEP 

• 


y NBLKLN 

f 

n i acc 

» 0 I ACC S y 

DINOSH ♦ 

DIPNCH « 

FF ACC 

• 


♦ FFACCS 


FF MIN 

♦ FFRATL y 

FFNOSH ♦ 

FFPNCH y 

FFPRNT 

* 


y I GHSF F 

* 

GHWBNO 

* RKAMPF y 

IRKCN y 

RKMIN y 

IRKNGB 

• 


y IRKNSP 

f 

RKPNCM 

* bk sp » 

RKTAPE * 

SIGMA y 

ITRC10 

• 


y I TRC£0 

t 

ITRC30 

* ITRC40 y 

ITRCSO y 

ITRC60 y 

ITRC70 

• 


y ITRCMO 

J 

ITRCRO 

» ITRCAO y 

ITRCHO ♦ 

ITRCCO » 

ITRCDO 

• 


< I TRACE 

* 

lAOGril 

* i AuGB S y 

IAQSOS y 

IAGSOA y 

I AQSOP 

• 


• I (JO ARY 

* 

TOOCOR 

♦ QOAMpF y 

QOFMPF y 

QOTMPF » 

UORMPF 

• 


y (JOTYPt 

* 

IOOTA8 

y OOTAPE , 

QOPNCH y 

IOOTME y 

NBCDSK 

9> 


y RSOLAR 

* 

PALM 

» RPL AN y 

RFRAC ♦ 

IMESS » 

ISPNO 

• 


y NERN 

* 

NMESS 

y NSPN1J y 

NSFT ♦ 

NSF 0 y 

ISOLFL 

* 


y ialrfl 

» 

IPLAFL 

* I A I ♦ 

IAS y 

TRUANF y 

Truani 

• 


» NS T SOL 

* 

NSTPL 






COMMON 

/T APE 

/ 


NO I 

y NO I W 

♦ NFF 

y NFFR 


1 




* 

nghir 

♦ nghirr 

♦ ngbso 

y NGBSOR 


2 




* 

NOUT 

y IMRAN 

♦ NSCRi 

y NSCR2 


3 




* 

NSCR3 

♦ N T 0 

y NTQR 

y NPLS 


4 




* 

N D L S R 

♦ nsuntl 

« NPON 

» NBCDOU 

6 




t 

NSHADO 

y N T R A J 

y NR SO 

♦ NRTO 


b 




* 

NUSERI 

» NUSEH2 

y K8C00U 

♦ KSHADO 


7 




» 

K TP A J 

» KRSO 

y KRTO 




COMMON 

/title 

/ 


title 

(ID 

» NT I TLE ( 1 1 ) 


1 




t 

MOOELN 

» DTE 

» TME 

* IPAGE 


? 




* 

LINE 

y IHSTEP 





COMMON 

/PLOT 

/ 


NPNNP ( 6 ) 

♦ NP TIT ( 9 ) 


] 




* 

NPVU(b) 

y ZNPRO T (6*6) 


2 




♦ 

7NPSCL (b) 

y I OPNNP ( 6 ) 


3 




♦ 

I OPT IT (6) 

y IORNVU(b) 


4 




♦ 

OPROT ( 6 y 6 ) 

y OPSCL ( 

b ) 


5 




t 

OPSCLP 

(b) 

y IOPNV 



b 




f 

OPRPLN 

(b) 

y OPTRUE 

(6) 


7 




J 

OPT IMP 

(6) 

♦ OPTIMS 

( b ) 



COMMON 

/INOX 

/ 


INOX 

( 1019) 





COMMON 

/INOXS 

/ 


INDXS 

( 1 ) 





COMMON 

/ INOXN 

/ 


INOXN 

( 1 ) 





COMMON 

/DIMS 

/ 


01 MS (3 

♦ 1) 





COMMON 

/ostr 

/ 


OSTR 

(5* 1 ) 





COMMON 

/ 1 F S 

/ 


IKS 

( 1 ) 





COMMON 

/IKS 

/ 


IKS 

( 1 > 





COMMON 

/PR 

/ 


PR 

( 2 » 1 ) 





COMMON 

/PSH 

/ 


PSH 

(4* 1 ) 





COMMON 

/TSTR 

/ 


TSTR 

( 3 1 3 y 1 ) 





COMMON 

/ ALPH 

/ 


ALPH 

< 1 ) 





COMMON 

/AREA 

/ 


AREA 

( 1 ) 





COMMON 

/EMISS 

/ 


EMISS 

( 1 ) 





COMMON 

/SRIR 

/ 


SRIR 

( I ) 





COMMON 

/SRSO 

/ 


SR Si) 

( 1 ) 
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COMMON 

/T-MP / 


TRIP { 


i > 






r o m n 0 N 

/T^sO / 


fPbO ( 


i ) 






COMMON 

/NOPE / 


">i 0 OF ( 


i > 






COMMON 

/OOTFmP/ 


or t t’v ( 


i > 






r ommChm 

/'JH'dIT / 


ALAN 

♦ 

A SON 

9 

PSD 

9 

D'dP 

1 



* 

; C C 

9 

f 0*0 i 

9 

I0PBI1 

9 

Pfc KIUR 

? 



■» 

to S S 

% 

PALP 

9 

PC AO 

9 

P S U N 

3 




C 1 oMAS 

9 

m t . T a 3 


APCB 

9 

.v n s 

4 



* 

W S l j N 

4 

T I Iv ‘ F 3 T 

9 

T I m f P H 

4 

T POE AN 

5 



9 

SOL 

♦ 

I SKPSO 

9 

GRAY 

• 

OINC 

n 



9 

^ A 

9 

‘-t p 

9 

SUMP A 

9 

STPBA 

7 



9 

S I PDc C 

9 

3 UN OF 0 

9 

C I GMA 

9 

BETA 

4 



♦ 

k I H fc. T 

9 

Or N i ( I t 

3> 


9 

SPIN! (3,3) 

9 



9 

r C 6 L F L 

9 

NSPFF 

9 

CLOCK 

9 

CONE 

0 




PAT t 

♦ 

B 0 T X 

4 

POT Y 

9 

POT L 

1 



9 

I POT X 

9 

ipu rr 

9 

I PO T L 

9 

PM A ME 

3 



9 

ISFT 

9 

PL T YPF 

9 

I N3H AO 

9 

3 H A i j l N 

3 



♦ 

S h A 0 u T 

» 

3UNCL 

9 

SUNCO 


PL CL 

4 



« 

P[ co 


T t m s P 






COMMON 

/OS TOO t./ 


I OS TP ( 

13, 

3) 






COMMON 

/ 1 3 T P n p / 


1ST POO ( 


j ) 






COMMON 

/NS PEC / 


n s p e c 








COMMON 

/PLO r TP/ 


T P U-JNJ 

9 

p L C P V F 

9 

PL XMpF 

9 

PLY^Pr 

1 



4 

I P L M 4 

9 

1 PLSN 

9 

PLLABA ( 

5 ) 


P 



? 

PI ! AM Y < 

b ) 


9- 

PLTI 1 H 10) 


3 



♦ 

pi r t \ ?. {la 







COMMON 

/QONOO T / 


MO Or r < 


i ) 






COMMON 

/OA Vf.P-i/ 


O A Vr H(j i 


i > 






common 

/r.OCM-- / 


ICO M p { 

i 

0 0 t 






C O M M o N 

/ O 0 f P S i / 


If- i r> b T { 

i 

■J U ) 






COMMON 

/A PC AT / 


A p L A 1 I 


i i 
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COMMON 

/ C C 0 N S i / 


0 1 « 

9 

Rin » 

PI 

9 

MAXBC . 

NN 

• 


, NS 

$ 

NMOL! 

9 

N S U R F . 

iOVL * 

N S T F P . 

Nssrtp 

♦ 


% N H L t* L N 

f 

or acc 

9 

0 1 ACCS ♦ 

1) I NOSH » 

1)1 PNC ft 9 

F F A C C 

9 


« FFACCS 

f 

F F m ] N 

9 

F r R A T L ♦ 

F F N 0 S ft i 

F FPNCH . 

1 - F P R N T 

9 


» IGRSFF 

9 

G R « y N 0 

9 

PK AMP F « 

IRK.CN * 

P K M J N 9 

I RKNGR 

* 


. IRKNftP 

9 

pkRNCh 

9 

Rk SP 9 

RK TAPE » 

SIGMA 9 

ITRC10 



, J.TRC20 

9 

I IRC SO 

9 

I T R C 4 0 9 

ITrCSO • 

ITPCftU 9 

IT PC 7 0 

• 


• ITPCd'O 

9 

i r r c o o 

9 

IT PC AO . 

I TRCB 0 . 

ITRCCO 9 

I TRCDO 

* 


» 11 PALL 

9 

I AuGf.J 1 

9 

1 A OOP ft , 

I A 0 S 0 S . 

I AQSDA 9 

I AOSOP 

e 


. INOAkY 

9 

I QOCGR 

9 

OOAMpF . 

Q 0 F m P F . 

NOTmPF 9 

UORMPF 

9 


. UOTYPE 

9 

I OUT AH 

9 

H 0 T A P E . 

UOPNCH . 

1 00 TME 9 

NHCDSK 

# 


9 kSOL Ah 

9 

R A L H 

9 

PPLAN t 

RFRAC 9 

I MESS 9 

1SPND 

• 


« NE R M 

9 

NMFSS 

9 

NSPN 0 9 

NSF T . 

NSFO » 

ISOLFL 

9 


* IALBF.L 

9 

IPLAFl 

9 

I A I 9 

I Aft . 

TKUANF 9 

T kUANI 

• 


. NSTSOL 

9 

NSTPL 








COMMON 

/TAPE / 


N u 1 

9 

NO IP 

9 

NFF 

9 NFF R 


1 



9 

NGHlR 

9 

NGdlPR 

9 

NGBSO 

9 NGBSOR 


? 



9 

NOUT 

9 

NR AN 

9 

NSCRl 

* ijSCRZ 


A 



9 

N S C P 3 

9 

NT U 

9 

N T OR 

9 NPLS 


4 



9 

N P L S R 


NSUNTL 

9 

NPUN 

9 NrtCDOU 

b 



9 

NSHADO 

9 

N TP A i 

9 

NR SO 

9 N R T 0 


6 



9 

N U S F R 1 

9 

N 0 S F R <? 

9 

KBCDUU 

9 KSHADO 


T 



9 

K T R A J 

9 

K R S 0 

9 

K P T 0 




COMMON 

/TITLE / 


TITLt 

(11) 


n r i t lf (in 


I 



9 

MOOELN 

9 

DTE 

9 

tme 

9 I PAGE 


2 



9 

LINE 

9 

lHftTEP 






common 

/PLOT / 


NPNNP (ft) 


9 

NPTIT (9) 


l 



9 

wPVU ( 6 ) 


9 

/.NPROT ( 69 ft) 


2 



9 

ZNPSCL 

(ft) 


9 

I OPNImP ( ft ) 


3 



9 

10PTI T (ft) 


9 

I0PMVU 

(6) 


4 



9 

0 P R 0 T (6.6) 

9 

OPSCL (b) 


ft 



9 

OPSCLR (ft) 


9 

IOPNV 



ft 



9 

QPRPLN (ft) 


9 

OP TRUE ( b ) 


7 



9 

OR I I MR ( ft ) 


9 

OP T I MS ( ft ) 



r DM MON 

/INOX / 


INOX 

( 1 

0 i R ) 






COMMON 

/ T N 1) X S / 


TNRXS 

( 

1 ) 






COMMON 

/I NO AM / 


1NOXN 

( 

1 > 






COMMON 

/DIMS / 


0 1 MS ( 3 

♦ 

1 ) 






COMMON 

/OSIP / 


OSTR 

( b . 

1 ) 






COMMON 

/ 1 FS / 


i FS 

( 

1 ) 






COMMON 

/IRS / 


JKS 

( 

i ) 






COMMON 

/PR / 


PR 

( ?. 

J ) 






COMMON 

/PSH / 


PSH 

{ 4 . 

1 ) 






COMMON 

/ TS TP / 


TSTH 

( 3t 

1 1 1 ) 






COMMON 

/&LPH / 


ALPH 

( 

l ) 






COMMON 

/AREA / 


ARfc A 

( 

1 » 






COMMON 

/e MJSS / 


(•MISS 

( 

I ) 






COMMON 

/skip / 


S R. I K 

( 

i ) 






COMMON 

/SR SO / 


S R S 0 

1 

* 

i J ' 
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COMMON 

/ T P 1 P / 


TP IP < 


l ) 






Common 

/TRSO / 


TP SO ( 


i ) 






COMMON 

/NOOt / 


NOOL ( 


1 ) 






COMMON 

/On T t^P/ 


NO TPMP { 


1 ) 






Common 

/ 0 B B 1 1 / 


ALAN 

9 

A SON 

<? 

P 3 i j 

9 

DPP 

1 



9 

ACC 

9 

I 0 P N T 


i ok Hi r 

9 

PEP 1 0 D 

r 



9 

43b 

9 

P A L H 

♦ 

pH AO 

9 

PSUN 

3 



* 

C r cm A 3 

9 

H t I A b 

* 

APtft 

9 

w 0 3 

4 



9 

v.'b UN 

9 

T l ME ST 


T IMEPP 

9 

TkUEAN 

S 



9 

SOL 

9 

I SKPb.j 

* 

CP A V 

9 

OINC 

6 



9 

HA 

9 

HP 

•9 

SUNPA 

9 

3 T P PA 

7 



9 

STkutC 

9 

SUNOtC 

f 

C I CM A 

9 

BETA 

H 



9 

PTHE T 

9 

0 P N T ( 3 » 

3 ) 


9 

S P I N T ( 3 » 3 ) 

9 



9 

TCALFl. 

9 

NbPF F 

* 

CLOCK 

9 

CONE 

0 



9 

PATE 

9 

p' i T X 

* 

PC rv 

9 

POT/ 

1 



9 

I POT A 

9 

I POTT 

* 

ipo rz 

9 

PNAMlE 

? 



9 

I SET 

• 

pi Type 

f 

I N S H A U 

9 

b h A 0 In 

3 



9 

SH AOU T 

9 

3 UNCI. 


SUNCO 

9 

PL CL 

4 



9 

PL CO 

9 

T 1 MSP 






C 0 M M O M 

/OSTupe/ 


I N 3 T P { 1 

0 3) 






C 0 M M 0 N 

/TSTPOK/ 


1ST Pi) P ( 


1 > 






COMMON 

/‘vSPEC / 


N SPEC 








COMMON 

/PLOT TO/ 


I PL -J NT 

9 

p L C R V E 

4 

PLXMPF 

9 

PLYMPF 

i 



9 

IPLMA 

9 

I PL. SN 

* 

PLL AB X ( 5 ) 


P 



9 

PLLAdY (3) 


5 

pl n r i ( i 

u 


3 



9 

PLTlTci(l<?) 






COMMON 

/ T S P N / 


ISP iv ( 


1 0 0 > 






common 

/MSN 0 / 


M b N 0 < 


i o o > 






COMMON 

/ NiJ S / 


NOS ( 


1 ) 






COMMON 

/OPS / 


SF ( 


i ) 






COMMON 

/ S P C N 0 / 


SPACNO ( 


1 » 
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COMMON 

/CCUNSI/ 


U fR 

♦ R T 0 


PI 

9 

m A X B C » 

NN 

V 


9 

NS 

9 

NNUO 

. NSUHF 


IOVL 

9 

NSTEP » 

NSSTF.P 

V 


9 

nblkln 

9 

DI ACC 

t HI ACCS 


DINOSH 

9 

OIPNCH » 

FF ACC 



0 

FF ACCS 

9 

F F M I N 

♦ FFRaTL 


F F NOSH 

9 

FFPNCH » 

FFPRNT 

<> 


9 

IGRSFF 

? 

UBwBNu 

t RK AMPF 


1PKCN 

9 

kKMIN « 

IRKNGB 



9 

IRKNSH 

9 

RK PNCH 

♦ HKSP 


KKTAPE 

9 

SIGMA ♦ 

I IRC 1 0 

• 


* 

1 FRC20 

9 

IT k C J U 

» ITRC40 


UkCbO 

9 

ITHC60 * 

I I RC 70 

» 


9 

ITRCbO 

9 

i r k c v o 

» ITRCAO 


I TRCBO 

9 

ITRCCU » 

I TkCDO 

• 


? 

I TP ALL 

9 

I A u G d I 

» I A COBS 


1A0SDS 

9 

IAQSDA » 

IAQSDP 

» 


9 

I (JO ARY 

9 

IOOCOw 

» QOAMRP 


QOFMPF 

9 

OOTMPF * 

qormpf 

O 


9 

QUTYPE 

9 

IOO TAB 

* OOT APE 


QOPNCH 

9 

IUOTME » 

NBCDSK 

* 


f 

RSOt A« 

9 

HALM 

* rplan 


RFRAC 

9 

I MESS « 

ISPNO 

0 


* 

N E P N 

9 

NMESS 

» NSPND 


NSFT 

9 

NSFO » 

ISOLFL 

e 



I ALBFL 

9 

iplafl 

♦ I A I 


IAS 

9 

THUANF ♦ 

TRUANT 

« 


* 

NS T SOL 

9 

nstpl 

, 







COMMON 

/tape / 


NDI 

» nDIR 


» NFF 


» NFFR 


1 




9 

N i’-j ri I B 

» N G BIRR 


9 NGBSO 


» NGBSOR 


2 




9 

NOUT 

♦ NR AN 


9 M S C H 1 


♦ NSCR2 


3 




9 

NSCR3 

» i\i T U 


9 N T QR 


» NHL S 


4 




9 

NPLSH 

» N S (J N f L 


9 MPUN 


♦ NBCOOU 


5 




9 

N S rl A t) 0 

9 N fHA J 


9 NRSO 


f NR T 0 


6 




9 

NOSfcH 1 

» N U S E R 2 


» KBCDOU 

* K SHAGO 


7 




9 

K T R A J 

? K ri SO 


♦ K R T 0 





COMMON 

/ T I T L 2 / 


riiLt. 

(11) 


9 NTITLt(II) 


1 




9 

MQOELN 

» DTE 


* TME 


» IPAGE 


2 




9 

L I NF 

* iMbTEP 







CO w MON /PLOT 

/ 

NPNNP (6) 

9 

NPTI T (S) 

I 

♦ 

NPVU (6) 

9 

ZNPPOT (t>»6) 

2 

9 

ZNPbCL (o) 

9 

IOPNNP (6) 

3 

9 

I OPT IT (6) 

9 

IOPNVU (b) 

4 

9 

OPFfOT (o.b) 

9 

OPSCL (b) 

S 

9 

0 P 5 C L R ( b ) 

9 

I0PN7 

6 

9 

QPRPLN(G) 

9 

OPTRUE <fa) 

7 

9 

OPT IMP (b) 

9 

OP f IMS (b) 


COMMON 

/ JNDa 

/ 

INDA 

( 1 0 1 H ) 

COMMON 

/ T NO X S 

/ 

I NO AS 

( 

1 ) 

COMMON 

/ I NO AN 

/ 

I NO AN 

( 

1 ) 

COMMON 

/DIMS 

/ 

DIMS (3 

9 

1 ) 

common 

/ns tp 

/ 

DSTR 

( b » 

1 ) 

COMMON 

/TPS 

/ 

IPS 

< 

1) 

COMMON 

/ T K S 

/ 

IKS 

( 

1 ) 

COMMON 

/PR 

/ 

PR 

(29 

I ) 

COMMON 

/PSH 

/ 

PSH 

( 4 9 

1 ) 

COMMON 

/ T S T R 

/ 

TSTR 

(393 

9 

COMMON 

/ ALPH 

/ 

ALPH 

( 

1 ) 

COMMON 

/ A R E A 

/ 

AREA 

< 

i > 

COMMON 

/-MI SS 

/ 

F MISS 

( 

1 ) 

COMMON 

/SRIR 

/ 

SRIR 

( 

i ) 

COMMON 

/SR SO 

/ 

SPSO 

( 

1 ) 

COMMON 

/TRIP 

/ 

TRIP 

( 

I ) 

COMMON 

/ T R $ 0 

/ 

TRSO 

( 

I ) 

Common 

/NODE" 

/ 

NODE 

( 

1 > 

COMMON 

/GO TEM! 

p/' 

0!) TEMPI 

1 ) 
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COMMON BLOCKS FOR RKCAL (CONT.) 



COMMON 

/ORBIT / 


ALAN 

9 

ASUN 

9 

PSD 

9 

O'Wp 

] 



<J 

FCC 

9 

IQRNl 

9 

IOHBI T 

9 

PERIOD 




» 

i* s s 

9 

PALB 

9 

PR AD 

9 

RSUN 

3 



9 

CICiMAS 

t 

H F’T A S 

9 

apep 

9 

wOS 

4 



9 

w S U N 

9 

1 IMF.ST 

9 

timepr 

9 

TRUE AN 

d 



9 

SOL 

9 

ISKPSO 

9 

G R A V 

9 

0 I NC 

s 



■9 

HA 

9 

HP 

9 

SUNRA 

9 

STP.PA 

7 



9 

STHOEC 

« 

sunoec 

9 

cigma 

9 

BETA 

B 



9 

K f rtt 1 

9 

O i-i N T ( 3 ♦ 

3 5 


9 

SPIN T ( 3, J) 

u 



9 

ICALEL 

9 

NbPFF 

9 

CLOCK 

9 

CONE 

n 



9 

HATH 

9 

ho r x 

9 

ROTY 

9 

ROT/ 

1 



9 

I ROT/ 

9 

I ROT Y 

9 

IROTZ 

9 

PNAMF 

2 



9 

ISFT 

9 

PL T YPE 

9 

I N S H A D 

9 

SHAD I N 

T 



9 

SHAOU r 

9 

SON CL 

9 

SUNCO 

9 

PL CL 

4 



9 

PL CO 

9 

i I MSP 






C 0 M M 0 !\j 

/ns Toot;/ 


IOSTH (id 

9 3 ) 






COMMON 

/IS7POR/ 


1ST POP ( 


i) 






COMMON 

/MbPfC / 


N S P E L 








COMMON 

/PLOT Tn/ 


r pluimt 

9 

PLChVF 

9 

PLXMPF 

9 

PLYMPF 

} 



9 

I P L H A 

9 

IPLSN 

9 

PLLAbX (d) 


2 



9 

p L L A ri Y (5) 


9 

PLTIT1 (10) 


3 



9 

PLTI t2( 12) 






•* o m M 0 N 

/ h K CM R / 


I COM li ( 


l n o ) 






COMMON 

/ p K F R S F / 


if ips r < 


10 0) 






comm o r -j 

/p'K NOD T / 


NODE t ( 


1 > 






r Q m M Q N 

/SF / 


SF ( 


i i 






r 0 M M 0 N 

/ S P A C N 0 / 


SPACNO ( 


1 ) 
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1 

?. 

3 


ft 

7 

} 

P 

1 

£ 

3 

4 

5 
ft 
7 


COMM 0 N 

/SFSHOC/ 


ISHAU < 

1 ) 


COMMON 

/SF'UOP / 


QOP ( 

i ) 


COMMON 

/SF UDP / 


OOP ( 

i ) 


COMMON 

/SF DOS / 


DOS ( 

1 ) 


COMMON 

/('CONST/ 


DIN 

9 R T 0 

9 


9 NS 

9 

Nf-iOO 

9 N SURF 

9 


9 NBLKLN 

9 

01 ACC 

• 1.) I ACCS 

9 


9 F F A C C S 

9 

FF MIN 

9 F FRAIL 

9 


9 IGBSFF 

9 

GHPBNO 

9 RKAMPF 

9 


9 IHKNSP 

9 

PKPNC'H 

9 HKSP 

9 


9 ITRC20 

9 

ITPC30 

9 I F R C 4 0 

9 


9 ITRCPO 

9 

ITPCVO 

9 ] TkCaO 

4 


9 ITRALL 

9 

I A UGH I 

9 [ADGbS 

9 


9 IQOAPY 

9 

I DOC OR 

9 DOAMPF 

9 


9 DO TYPE 

9 

1 0 0 Tap 

9 (j 0 T A P E 

9 


9 rsolap 

9 

PALP 

9 wplan 

9 


9 NCRN 

9 

NMfc SS 

9 NSPND 

9 


• .IALBF'L 

9 

IF’LAr L 

9 I A I 

9 


9 NSTSOL 

9 

NS I PL 



COMMON 

/TAPE / 


NO I 

1 NO I R 




9 

NOb I P 

9 N G ft I P P 




9 

nout 

9 N K A N 




9 

vSCPS 

» N T G 




9 

NN l SP 

9 N 3 U N T L 




9 

N SPA 0 0 

9 N T H A J 




9 

NO SEP i 

9 N USE RE 




9 

K T K A U 

9 K R SO 


COMMON 

/title / 


TITLE 

(ID 




9 

MODEL N 

9 DTE 




9 

LINE 

9 [hSTEP 


roMMQM 

/PLOT / 


NPNNP ( ft ) 



♦ N^VU(ft) 

» 2NPSCL ( ft ) 

» iopriT{ 6 ) 

» OPPOT ( ft * ft ) 
9 OPSCLP ( 6 ) 

* OPPRLN(ft) 

9 OP I I Mp ( 6 ) 


COMMON 

/INOX 

/ 

J N D X 

t 

1 0 1 D ) 


COMMON 

/ JNOXS 

/ 

I NO/ S 

{ 

1 ) 


COMMON 

/ I NOXN 

/ 

I NOXN 

( 

1 ) 


COMMON 

/DIMS 

/ 

0 I MS ( 


1 ) 


COMMON 

/PSTR 

/ 

OSTP 

IS 

4 

1 j 

COMMON 

/ JFS 

/ 

I F S 

( 

1 ) 


COMMON 

/IKS 

/ 

IKS 

( 

1 ) 


COMMON 

/PR 

/ 

pH 

M 

9 

1 > 

COMMON 

/PSH 

/ 

PSH 

(4 

9 

1 > 

COMMON 

/ T S T R 

/ 

IS IP 

( 3 

9 3 n 


COMMON 

/ALPH 

/ 

AL PH 

( 

1 > 


COMMON 

/AREA 

/ 

APE a 

( 

1 ; 


COMMON 

/F MISS 

/ 

E M I S b 

( 

1 > 



PI 9 

IOVL 9 

L) I NOSH ♦ 
FFNOSH 9 
IPKCN 9 
KKTAPt 9 
IThCSO 9 
ITfiCHO 9 
IAuSOS 9 
OOFMPF , 
QoPNCH 9 
PFPAC 9 
NSFT 9 
IAS 9 

9 NF F 
9 NGoSO 
9 NSCP1 
9 N T 0 P 
9 N P U N 


MAXpC 9 
NSTtP 9 
OIPNCH 9 
FFPNCH 9 

PKHIN 9 

S I GM A 9 
ITRC6Q 9 
ITPCCO 9 
IAQSOA 9 
QOTMPF , 

lOOTME 9 

I MESS 9 
NSFO t 
TRUANF ♦ 

9 NFFR 
9 NOB SOP 
9 NSCR2 
9 NPLS 

9 NBCOOU 
9 MR TO 
9 KSHAUO 


9 iNRSO 
9 KBCDOU 
9 kRTO 


9 NTIlLtdl) 

9 TME 9 IPAGE 


9 NPTIT(R) 

9 ZNPPO I ( 69 b) 
9 IOPNNP(fe) 

9 XOPNVU(b) 

9 OPSCL(b) 

9 IOPNV 
9 DPT RUE (6) 

9 OPT [MS ( b ) 


NN 

NSSTEP 

FFACC 

FFPRNT 

IPKNG 8 

I7RC10 

ITRC70 

ITPCOO 

IAQSOP 

QORMPF 

NdCDSK 

I iPND 

isolfl 

tpuani 
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COMMON BLOCKS FOR SFCAL (CONT.) 



COMMON 

/SR1R 

/ 


SR IK ( 


i ) 





common 

/SRSQ 

/ 


3* SO ( 


I ) 





common 

/ r k I R 

/ 


T R I R ( 


i ) 





COMMON 

/ IPSO 

/ 


T R s 0 ( 


l ) 





COMMON 

/NO Of 

/ 


None ( 


i ) 





COMMON 

/ 0 0 T E M M / 


00 TEMP ( 


l ) 





Common 

/OR 3 1 T 

/ 


ALAN 

9 

A SUN 

9 

PSD 

» DwP 

1 




9 

tcc 

9 

I CRN I 

9 

IORRI r 

♦ PERIOD 

? 




♦ 

WSS 

9 

KALB 

9 

PR AO 

» RSUN 

3 




9 

CIOMAS 

9 

BETA 3 

9 

APfcR 

♦ k^DS 

4 




* 

4 SDN 

9 

T IMEbT 

9 

TIME PR 

* TRUEAN 

5 




« 


9 

I 3NPS0 

9 

GRAV 

♦ OINC 

6 




9 

H A 

9 

rP 

9 

SUNRA 

♦ STRRA 

7 




♦ 

S I ROE C 

9 

SUNDEC 

9 

cigma 

» bet a 

8 




♦ 

RTHET 

9 

ORimT (3» 

3) 


, SPINT(3»3) 

9 




9 

icalfl 

9 

N S R F F 

9 

CLOCK 

♦ CONE 

0 




9 

RATE 

9 

ko r x 

9 

ROT Y 

» RO T Z 

1 




9 

I R 0 T A 

9 

IROIY 

9 

IKOTZ 

♦ PNAME 

2 




9 

I SET 

9 

pltype 


IN3HA0 

» SHAD IN 

3 




9 

SkaOUT 

9 

SUNCL 

9 

SUNCO 

» PLCL 

4 




9 

RLCO 

9 

TIMSP 





COMMON 

/M5TOPE/ 


IDSTR (IP* 

3) 





COMMON 

/ISTROR/ 


I STROP ( 


I J 





COMMON 

/NSPEC 

/ 


N SPEC 







COMMON 

/ S E 5 H 0 C / 


I 3H AD < 


i ) 





COMMON 

/SEQDP 

/ 


QOR ( 

l ) 






COMMON 

/SPOOR 

/ 


OOP ( 

l > 






COMMON 

/ 3 FRO 3 

/ 


uos ( 

1 ) 
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APPENDIX B 

FORM FACTOR CALCULATION ACCURACY 
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A. ELEMENTAL GRID VARIATIONS 


The form factor for two finite areas, and (Fig. B-l) , is de- 
fined as 



Figure E-l Determination of Form Factors 


A f ini te-dif f erence approximation of Equation [B-l] is 


tn 


T.J 


: E E 


1 "1 


j=l 


:os 6. cos 0. 

- 2 ' 1 A A . 

itr . . i i 

ii J 


[B-2] 


Equation 
[B-l 


2] approaches an exact representation of Equation 

approach 


as the size of the elemental areas, A. and A. 

i J 

zero. For identical, parallel, directly opposed rectangles, the 
empirical relationship of elemental area size-to-separation dis- 
tance versus form factor error shown in Figure B-2 is obtained. 
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Figure B-2 Error Characteristics for Identical, Parallel , 
Directly Opposed Rectangles 


F or th i s c a 5 e , 

A - K r , 2 , 

1 i.l 

where K is a proportionality constant. 
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A more general form of Equation [B-2], considering that 



cos G . cos 
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Trr . . 
13 
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e . 
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dA. 

3 


dA . 71 r . . 2 

3 = 

dF . . cos G . cos 0 . 

r-3 1 1 


is 


A. 
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C.os 


IB-6], 
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MTRAP version 1.0, LOHARP, and TRASYS use Equation B-2, modified 

with a shadowing constant, to compute form factors. The total 
number (i.e.» size) and distribution of elemental areas is left 
to the user to define in MTRAP version 1.0 and LOHARP. The number 
of elements to be selected is defined by the closest node a given 
node "sees." The selection of elements, however, usually ends 
up being somewhat arbitrary or simply a matter of economics; i.e., 
the finer the grid, the more machine time required. In reality, 
the selection of elemental areas is an independent problem for 
each form factor. 


The basic assumption for reasonably accurate form factors is, from 
Equation [B-6], that the elemental area size is small compared to 
the separation distance between two elements. 

The TRASYS program uses a technique using Equation [ B— 6 ] to auto- 
matically select the element grid sizes of each node pair con- 
sistent with a user-defined accuracy parameter, K. If all ele- 
mental areas on each of two nodes were the same size and had 
the same separation distance, r , the apparent number of ele- 
ments on a node to satisfy the accuracy value K would be (from 
Equation [B-6] 


A. 

l 


A t cos 6 . cos Q . 
I i l 

r T77 2 

LJ 


£ B— 7 3 


Since each element pair on the two nodes may have a different 
separation distance, a different apparent number of equal-sized 
elements will be required. 

The approach used in the TRASYS program is a simple arithmetic 
average of element contributions, i.e., 


N 

optj 



ip. . ni . 

i 3 


EE 

= 1 -i = i 


cos 8 , cos 




[B-8] 


where m. and m. 

i 3 

chosen for nodes 


are the 
1 and J 


initial number 


of 


elements 


arbitrarily 


The initial number of elements is chosen just large enough for 
a. representative sample. A similar optimum number of elements 
for node J can be defined. 
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The total number of elements defined by Equation [B— 8] is dis- 
tributed uniformly over the node using a criterion that attempts 
to make the elements square. The arithmetic average technique 
assumes that the mean separation distance between nodes is large 
compared with the variation of separation distance over the two 
nodes. A check is made to see if this assumption is violated. 

The maximum number of elements defined by any element pair on 
the two nodes (Equation IB-7]) is compared with the arithmetic 

average value (Equation f B— 8 1 ) . If the ratio of N /N . is 

max/ opt 

greater than N . . . , the two nodes are temporarily subdivided 

critical 

into subnodes. N . . , is an input value defined by the user. 

critical , . \ 

The numbers of subnodes used are proportional to ( N /N ] 

\ ma xj opt^ 

and / N /N \ . The optimum grid elements are computed inde- 
^ max/ °Ptjj 

pendently for each subnode using a separation-distance, weighted- 
average criterion, rather than an arithmetic one. The form factors 
resulting from the subnode pairs are then combined using form- 
factor algebra. Thus, elemental grids vary for each form factor 
and may be nonuniform over a node as required to satisfy input 
accuracy requirements . 


NODAL PRELIMINARY SHADOWING CHECKS 


Shadowing checks between elemental areas account for considerable 
machine time. Machine time could be saved if unnecessary checks 
were eliminated. The usual procedure in MTRAP version 1.0 is to 
process all the surfaces until either the- form factor contribution 
is reduced to zero by shadowing surfaces, or all surfaces identi- 
fied as shadowers have been investigated. The function of the 
nodal shadowing checks is to eliminate from the element-to-element 
shadowing checks all surfaces that cannot cause shadowing on any 
portion of. the two nodes under consideration. The technique used 
in the TRASYS program is a significant modification of the tech- 
nique used in LOHARP . 
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The nodal shadowing checks consist of constructing a sphere around 
each node for which form factors are being evaluated and for each 
shadowing surface. The radii of the spheres are such that the 
node or surface is completely enclosed. A test cylinder or cone 
frustum, depending on the relative sizes of the two spheres in 
question, is constructed as shown in Figure B-3. For the cylinder, 
the radius is equal to the larger of the two spheres. The cylinder 
or cone frustum's axial coordinate, is a vector between the centers 
of the two spheres plus the sum of the two sphere radii. Next, 
the shadowing surfaces' enclosing spheres are checked to deter- 
mine whether they intersect the test cylinder or cone frustum. 

Only surfaces whose sphere intersects the test cylinder or cone 
frustum will, be considered in the actual element-to-element 
shadowing checks for these two nodes. 

This technique of preliminary shadowing checks allows identifica- 
tion of any surface that shades the nodes in question. However, 
other marginal ones will also be identified. 

In the detailed element-to-element shadowing checks, an element 
pair is either completely shadowed or not at ail. The accuracy, 
then, of representing the shadow is proportional to the total 
number of elements on both, nodes. The number of elements on the 
shadowing surface (s) is of no consideration. In the TRASYS 
program it is assumed that accurate shadowing is required only 
for large-magnitude form factors. If the preliminary shadowing 
checks identify shadowing surfaces for the form factor in ques- 
of elements defined to represent the shadow is 


where 

K is an input shadowing accuracy factor, and 

B is a proportionality constant determined by trial and error. 

The number of elements used for any given node for form factors 
is taken as the. maximum of that defined in Equation [B-8] or 
Equation [B-9j. 


tion, the number 
/ 
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Figure B-3 Nodal Preliminary Shadowing Techniques 
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SHADOW FACTOR TAPE FORMAT 
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The Shadow Factor (SHADI) tape is a multifile binary 
tape. Each file contains a 171-element, bivariate, shadow- 
factor table for each node in a configuration. The files 
are identified by configuration (model) name and step 
number. The step number is that under which the tables 
were originally generated. The date each file was generated 
is also stored. 

The first record in each file has the following 
format : 

Word 1 - Configuration name. (Any Hollerith name 
of up to 6 characters, left- justified, 
blank-filled) 

Word 2 - Date generated. (Hollerith, month, day, 

year.) 

Word 3 - Number of nodes in configuration, NN 
(integer) 

Words 4 thru NN + 3 - node number array . 

(one integer node number per word) 

The second record of each file has the following 
format: 

Word 1 contains 9 shadow factors, for cone angles 

1 through 9 at clock angle 1. These shadow 
factors are for the first node in the node array. 

Words 2 through 19 each contain 9 shadow factors, 
for cone angles 1 through 9, at each clock angle, 

2 through 19. Word 19 completes a shadow-factor 
table for node 1. 

Words 20 through 190 are in 19-word groups 
identical in structure to words 1 through 19. 

Word 190 completes the shadow-factor table for 
the tenth node in the node array and the second 
record . 
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The third through last record of each file contains 
the shadow-factor tables for groups of ten nodes, in the 
order encountered in the node array. These. records have 
the same format as record 2. 

The tape is terminated by a double EOF. 100 
configurations (files) per tape are allowed. 

Clock angles 1 through 19 range from 0° to 360° in 
20° increments about the central coordinate system 
z-axis. (See Figure AG-1) The 0° and 360° points are 
repeated to avoid wrap-around interpolation. Cone angles 
1 through 9 are the inverse cosines of -1.0, -0.75, -0.5, 
-0.25, 0., 0.25, 0.5, 0.75, and 1.0, respectively. The 
shadow factors for nine cone angles are packed into 
one 36-bit word, providing 4 bits per shadow factor. 




Shadow table point illustrated for 
Cone 5 (90°) , Clock 10 (180°). 


Figure C-l Energy Source Direction for Shadow Factor Tables 




D-l 


APPENDIX D 

SUBROUTINE DESCRIPTIONS 
Subroutine 


Name 


Page 

BUILD C 

.... 

D-2 

ADD . 

.... 

D-3 

CHGBLK 

.... 

D-4 

NDATA , 

NDATAS 

D-5 

ODATA, 

ODATAS 

D-6 

FFDATA 

.... 

D-8 

0RBIT1 

' 

D-9 

ORBIT2 

.... 

..... D- 10 

DIDT1, 

DIDT1S 

D-ll 

DIDT2 , 

DIDT2S 

D-12 

SPIN . 

.... 

D-13 

ORIENT 

• 

D-14 

GBDATA 

* * * 

D-13 

RKDATA 


D-16 


Subroutine 

Name Page 

AQDATA ......... D-l 7 

STFAQ D-18 

QODATA D-19 

SFDATA ......... D-20 

PLDATA D-21 

DICOMP D-2.3 

DITTP, DDTTPS ..... D-24 

MODAR D-26 

MODPR . D-27 

MODTR D-28 

MODPRS ......... D-29 

MODSHD D-30 

CBAPRX D-31 

RCDATA . D-32 

ADSURF D-34 

FFNDP s. 


TAPELS . D-36 


NDUPCK 


D-37 
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SUBROUTINE NAME : BUILDC 

PURPOSE : 

This subroutine is used to define as problem geometry all nodes and 
surfaces identified with a Block Coordinate System. BUILDC is the 
first call to define a new configuration. 

VARIABLE NAME : 

BCSNAM is a Hollerith block coordinate system name consisting of 
up to 6 characters. 

RESTRICTIONS : 

Must be called prior to any Subroutine ADD calls within a step. 
BCSNAM must be ALLBLK., or a block coordinate systems name as defined 
in surface data. 

NOTE: If BCSNAM = ALLBLK, all surfaces in the surface data block become 

problem geometry. 

CALLING SEQUENCE : 


CALL BUILDC (BCSNAM) 
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SUBROUTINE NAME : ADD 

PURPOSE : 

This subroutine adds to the problem geometry all nodes/surfaces 
contained in BCSNAM 

VARIABLE NAME ; 

BCSNAM is a Hollerith Block Coordinate System name of up to 6 
characters . 

RESTRICTIONS ; 

Call valid only after previous calls to BU1LDC or ADD within current 
step. BCSNAM must he a block coordinate system name as defined in sur- 
face data. 

CALLING SEQUENCE : 


CALL ADD (BCSNAM) 
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SUBROUTINE NAME : CHGBLK 

PURPOSE ; 

This subroutine allows user to change block coordinate system para- 
meters where: 

BCSNAM - block coordinate system to be changed 

TX - translation along CCS X-axis 
TY - translation along CCS Y-axis 
TZ - translation along CCS Z-axis 
IROTX - order X rotation is to be performed (1,2,3) 

IROTY - order Y rotation is to be performed (1,2,3) 

IROTZ - order Z rotation is to be performed (1,2,3) 

ROTX - angle of rotation about CCS X-axis 
ROTY - angle of rotation about CCS Y-axis 
ROTZ - angle of rotation about CCS Z-axis 

RESTRICTIONS : 

TX, TY, TZ, ROTX, ROTY, ROTZ must be floating-point numbers. 

IROTX, IROTY, IROTZ must be integers, 1, 2, or 3 

CALLING SEQUENCE : 

CALL CHGBLK (BCSNAM, TX, TY , TZ , IROTX, IROTY, IROTZ, ROTX, 

ROTY, ROTZ) 
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SUBROUTINE NAMES : NDATA , NDATAS 

PURPOSE : 


These subroutines may be called prior to a call to the node plotter 
segment to define optional views and miscellaneous parameters where: 


Parameter 

Description 

Options* 

Default 

NV 

View number 

1-6 

1 

VU 

View 

3 HALL, 3H3-D 
1HX, 1HY, 1HZ 
3HGEN 

3HALL 

SCL 

Scale 

Floating-point 

no. 

Automatic 

scale 

SELN 

Name of array containing 
identification numbers 
of nodes to be selec- 
tively plotted 

Array name 

Plot all 
nodes 

TIT 

Array name of plot title 

Array name (array Uses job 
length 66 charac- title 
ters max.) 

IROTX, IROTY, 
IROTZ 

Order of rotations (for 
VU = 3HGEN) 

1,2,3 ( any 
order) 

1,2,3 

ROTX, ROTY, 
ROTZ 

View rotations (for VU = 
3HGEN) 

Real no. 

o o 
• • 

o o 

o 

• 

o 


* Input zero for default action 

NOTE: The NV parameter allows the user to define up to 6 plot operations 

that will be executed with one NPLOT call. Later in execution, 
(after a geometry change, for instance), he can execute the same 6 
operations or change one or more by reference to the appropriate 
NV'before his NPLOT call. 

RESTRICTIONS: 


None 

CALLING SEQUENCE : 

CALL NDATA (NV, VU, SCL, SELN, TIT, IROTX, IROTY, IROTZ, ROTX, 
ROTY, ROTZ) 

CALL NDATAS (NV, VU, SCL) 
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SUBROUTINE NAMES : ODATA , ODATAS 

PURPOSE: 


These subroutines may be called prior to a call to the orbit plotter 
to define optional views and miscellaneous parameters where: 


Parameter 

Description 

Options* 

Default 

NV 

View number 

1-6 

- 1 

VU 

View 

3 HALL, 3H3-D, 
4HBETA, 5HCIGMA, 
3HSUN, 3HGEN 

3 HALL 

SCL 

Spacecraft size meas- Real no. 
ured from CCS origin 
in plot frame dimensions 

Computed 

automatically 

SCLR 

Orbit radius in 
plot frame dimensions 

Real no. 

Computed 

automatically 

RPLN 

Planet rad i us in 
plot frame dimen- 
sion 

Real no. 

1.4 inches 

TRUEAN 

True anomaly 

Real no. 

None 

TIMEST 

TIME 

Time of periapsis 
passage 

Present time 

Real no. 
Real no. 

None 

SELN 

Name of array con- 
taining surface 
numbers to be 
selectively plotted 

Array name (array 
length 66 charac- 
ters, max.) 

Plots all 
surfaces 
defines as 
shadowers 

TIT 

Array name of plot 
title 

Array name 

Uses job 
title 

IROTX, IROTY, 
IROTZ 

Order of rotations 
(for view = 3HGEN) 

1,2,3 (any order) 

1,2,3 

ROTX, ROTY, ROTZ 

View rotations (for 

Real no. 

0.0, 0.0, 0.0 


view = 3HGEN) 

* Input zero for default action 

The NV parameter allows the user to define up to 6 plot operations 
that will be executed with one OPLOT call. Later in execution (after a 
geometry change, for instance), he can execute the same 6 operations or 
change one or more by reference to me appropriate NV before his OPLOT 
call. 
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SUBROUTINES ODATA, ODATAS (CONT'D) 
RESTRICTIONS: 


Calls valid only after orbit has been defined. 

CALLING SEQUENCE : 

CALL ODATA (NV, VU, SCL, SCLR, RPLN, TRUEAN, TIMEST, TIME, SELN, 
TIT, IROTX, IROTY, IROTZ, ROTX, ROTY, ROTZ) 

CALL ODATAS (NV, VU, SCL, SCLR, RPLN, TRUEAN, TIMEST, TIME) 



SUBROUTINE NAME: 


FFDATA 


PURPOSE : 

This subroutine will define parameters used in FFCAL if other than 
default values are used. 

DEFINITIONS: 


Variable Name 


Default Values 


FFACC - orientation accuracy factor 0.05 

FFACCS - shadowing accuracy factor 0.1 

FFNOSH - shadowing override, flag (4HN0SH, 4HSHAD) 4HSHAD 

FFRATL - distance/area ratio factor 15.0 

FFMIN - eliminate small form factors l.E-6 

FFPKNT - flag to print form factors (5HPRINT, 2HN0) 5HPRINT 

FFPNCH - flag to punch form factors (3HPUN, 4HTAPE.*, 3HPUN 

2HN0) 

RESTRICTIONS : 


None 


NOTES: Example: CALL FFDATA (0., 0., 4HN0SH, 0, 1 .E-3 ,5HPRINT , 0) 

Results in no shadowing computations, form factors below 0.001 
ignored, form factors printed, default values used elsewhere. 
If value passed is zero, default value assumed. 


CALLING SEQUENCE : 

CALL FFDATA (FFACC, FFACCS, FFNOSH, FFRATL, FFMIN, FFPRNT, FFPNCH) 


^Writes to tape RTO. 



SUBROUTINE NAME: 


ORBITI 


PURPOSE : 

This subroutine defines spacecraft orbits in terras of classic orbital 
mechanics parameters and a celestial coordinate system. 

DEFINITIONS: 


Variable 

Names 

Default Values 

PNAME 

- 

name of orbit-centered body 

None 

ALAN 

- 

longitude of ascending node 

None 

APER 

- 

argument of perifocus 

None 

OINC 

- 

orbit inclination 

None 

TIME ST 

- 

time of periapsis passage, hours 

0.0 

HP 

- 

altitude at periapsis 

None 

HA 

- 

altitude at apoapsis 

None 

ECC 

- 

orbit eccentricity 

None 

SUNRA 

- 

right ascension of sun 

None 

SUNDEC 

- 

declination of sun 

None 

STRRA 

- 

right ascension of star 

None 

STRDEC 

- 

declination of star 

None 


RESTRICTIONS: 


None 

GALLING SEQUENCE : 

CALL ORBITI (PNAME, ALAN, APER, OINC, TIMES T, HP , HA , SUNRA, SUNDEC, 
STRRA, STRDEC) 

CALL ORBITI (PLANAM, ALAN, APER, OINC, TIMES! , HP, ECC, SUNRA, SUNDEC, 
STRRA, STRDEC) 

NOTES : 

PNAME options are as follows: 3HMER, 3HVEN, 3HEAR, 3HMOO , 3HMAR, 

3HJUP, 3HSAT, 3HNEP, 3HURA, and 3HSUN. These names are used to key 
the following program variables: 

WDS - darkside infrared emissive power at planet surface 
PALB - planet albedo value (solar reflectance) 

PRAD - planet radius 

WSS - infrared emissive power at sbusolar point 
SOL - solar "constant" at planet-sun distance 
GRAV - planet gravitational constant at surface 

Sixth argument is tested for magnitude. If ^ 1.0, ECC is assumed. 

If > 1.0, HA assumed. 

Execution of this subroutine defines the planetary shadow entry and 
exit points (ref Figure 4-7). 
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SUBROUTINE NAME : ORBIT2 

PURPOSE : 

This subroutine defines spacecraft orbits and sun/star position-orbit 
relationship in the orbit coordinate system. 

DEFINITIONS : 

Variable Names Default Values 


PNAME - name of orbit-centered body None 

CIGMA - clock angle - X axis to solar vector . None 

. . o 

pro jectron 

BETA - cone angle - Z Q axis to solar vector None 

CIGMAS - clock angle - X axis to star vector ! None 

projection 

BETAS - cone angle - Z axis to star vector projection None 

TIMEST - time of periapsis passage, hours 0.0 

HP - altitude of periapsis None 

HA - altitude of apoapsis None 

ECC - orbit eccentricity None 


RESTRICTIONS : 

None 

CALLING SEQUENCE : 

CALL 0RBIT2 (PNAME, CIGMA, BETA, CIGMAS, BETAS, TIMEST, HP, HA) 

CALL ORB IT 2 (PNAME, CIGMA, BETA, CIGMAS, BETAS, TIMEST, HP, ECC) 

NOTES: See subroutine 0RBIT1. This call not applicable to heliocentric 

orbits . 
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SUBROUTINE NAMES : DIDT1 , DIDT1S 


PURPOSE: 


Calls to define direct irradiation shadowing and accuracy 
to compute heat source position vectors from true anomaly or 

parameters and 
time. 

DEFINITIONS : 


Variable Names 

Default Values 

DINOSH - shadow/no shadow flag (Options: 4HNOSH, 4I1SHAD) 

4HSHAD (shadow 
calculations not 
bypassed) 

DIACC - element selection accuracy factor for node/planet 
form factors 

0.25 

DIACCS - element selection accuracy factor for shadowing 
calculations 

0.10 

TRUEAN - true anomaly 

None 

NSPFF - step number reference to obtain node-planet form 
factors if desired 

0 (new form 
factors computed) 

TIMEPR - time 

None 

DIPNCH - flux punch flag (Options: 3HPUN , 4HTAPE* , 2HN0) 

3HPUN 

RESTRICTIONS: 


Either TRUEAN or TIMEPR must be defined in call. 


CALLING SEQUENCE: 



CALL DIDT1 (DINOSH, DIACC, DIACCS, TRUEAN, NSPFF, TIMEPR, DIPNCH) 
CALL D IDT IS (TRUEAN, NSPFF, TIMEPR, DIPNCH) 


^Writes to tape RTO. 
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SUBROUTINE NAMES : DIDT2 , DIDT2S 

PURPOSE: 


Calls to define direct irradiation shadowing and accuracy parameters and 
to compute heat source position vectors from look angles. 


DEFINITIONS : 


DINOSH 

BIACC 

DIACCS 

NSPFF 

DIPNCH 


Reference DIDT1 


SUNCL, SUNCO - look angles to sun (clock, cone) 
PL CL , PL CO - look angles to planet (clock, cone) 
TIMEPR - present time 
ALT - spacecraft altitude 


RESTRICTIONS: 


These calls must be preceded by a call to 0RBIT2 in order to define orbit- 
centered body. 

CALLING SEQUENCE : 

CALL DIDT2 (DINOSH, DIACC, DIACCS, NSPFF, SUNCL, SUNCO 
PLCL, PL CO , TIMEPR, ALT, DIPNCH) 

CALL DIDT2S (NSPFF, SUNCL, SUNCO, PLCL, PLCO , TIMEPR. ALT, DIPNCH) 
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SUBROUTINE NAME : SPIN 

PURPOSE : 

Subroutine to define spacecraft spin rate, spin axis, and time of 
beginning of spin. 

DEFINITIONS : 

Variable Names Default Values 


CLOCK - clock angle - CCS x-axis to spin axis projection 0. 

CONE - cone angle - CSS z-axis to spin axis 0 . 

RATE - spin rotation rate, degrees/hour (positive clock- 0. 

wise as viewed along spin axis from origin) 

TRUANS - true anomaly where spin begins 0 . 

SPNTM - time corresponding to TRUANS 0. 


RESTRICTIONS : 

Must be called subsequent to orbit definition through subroutines 
0RBIT1 or 0RBIT2 . 

NOTES : 

a. The time at which spin begins may be defined either directly through 
SPNTM or through TRUANS. If SPNTM = 0, SPNTM is computed from TRUANS. 

b. Spinning may be stopped only by a call to subroutine SPIN with RATE = 0. 
and spin stop time or true anomaly defined. 

CALLING SEQUENCE : 


CALL SPIN (CLOCK, CONE, RATE TRUANS, SPNTM) 
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SUBROUTINE NAME : ORIENT 

PURPOSE : 


To define spacecraft orientation relative to orbital heat sources. 


DEFINITIONS ; 


Variable Names 

TYPE - orientation type 

IROTX - order of rotation about x-axis 

IROTY - order of rotation about y-axis 

IROTZ - order of rotation about z-axis 

ROTX - rotation about VCS x-axis to rotate VCS into CSS 

ROTY - rotation about VCS y-axis to rotate VCS into CSS 

ROTZ - rotation about VCS z-axis to rotate VCS into CSS 


Default Values 
None 
1 
2 
3 

0 . 

0 . 

0 . 


RESTRICTIONS: 


Not recommended for use with DIDT2, DIDT2S. 


CALLING SEQUENCE : 

CALL ORIENT (TYPE , IROTX, IROTY, IROTZ, ROTX, ROTY, ROTZ) 

NOTES: TYPE options are as follows: 4HPLAN, 3HSUN, 4HSTAR, 4HTAPE . 

Individual default values obtained by passing zero. 
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SUBROUTINE NAME: 


GBDATA 


PURPOSE : 


Defines parameters used by segment GBCAL in computing a grey-body 
factor matrix. 


Variable Names 


Default Value 


IGBSFF - step no. reference for form factors 
GBWBND - waveband definition name (2HIR, 3HS0L , 

4HB0TH) 


RESTRICTIONS: 


Assumes current step 
None 


Current step geometry definition must match definition of FF step 
re ference . 


CALLING SEQUENCE : 


CALL GBDATA (IGBSFF, GBWBND) 
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SUBROUTINE NAME: 


RKDATA 


PURPOSE : 


This subroutine defines parameters used in RKCAL for output of 
radiation conductors (RADKS), 


Variable Names 


Default Value 


IRKNGB - step number reference for infrared 
grey-body factors. 

RKPNCH - punch/no punch flag. Options: 3HPUN, 
2HN0 ^ 

RKMIN - minimum value of’"'/e that will result in 
a valid RADK 

IRKCN - initial radiation conductor number 
RKSP - flag for calculation of RADKS to space. 

Options: 5RSPACE , 2HN0 

IRKNSP - space node number 
SIGMA - Stef an- Boltzmann constant 
RKAMPF - area multiplying factor 
RKTAPE - flag to write RADKS to BCD tape. 
Options: 4HTAPE, 2HN0 


Assumes current step 

3HPUN 

0.0001 

1 

2HNO 

32767 

1.713E-9 

1.0 

2HNO 


NOTES: If not called prior to RKCAL execution, default values will be 

assumed. Individual default values obtained by passing zero 
arguments . 

RESTRICTIONS : 

Current geometry must agree with that of step IRKNGB. 

CALLING SEQUENCE : 

CALL RKDATA (IRKNGB, RKPNCH, RKMIN, IRKCN, RKSP, IRKNSP, SIGMA, 
RKAMPF, RKTAPE) 
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SUBROUTINE NAME: AQDATA 

PURPOSE : 

This subroutine defines parameters used in AQCAL for calculation of absorbed 
heats. Direct fluxes for AQ calculations are obtained from current step data 
storage. 

Variable Names 


IAQGBS - step no. reference for solar grey-body matrix 
IAQGBI - step no. reference for IR grey-body matrix 
RSOLAR - multiplying factor for solar absorbed heat 
RALB - multiplying factor for albedo absorbed heat 
RPLAN - multiplying factor for planetary absorbed heat 

RESTRICTIONS : 

Must be called subsequent to a DICAL execution within same step. 

NOTES: If not called prior to a AQCAL execution (within same step), default 

values assumed. Individual default values obtained by passing zero 
arguments . 

CALLING SEQUENCE : 


Default Values 


Last previous step that 
computed grey-body factors. 
1.0 
1.0 
1.0 


CALL AQDATA (IAQGBI, IAQGBS, RSOLAR, RALB, RPLAN) 
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SUBROUTINE NAME : STFAQ 

PURPOSE : 

This subroutine stuffs known values of direct flux and absorbed heat from 
a previously executed step into current step data storage. It also defines time 
of current step, either directly or from true anomaly. 

VARIABLE NAMES : Default Value 

TRUEAN - true anomaly, degrees 
TIMEPR - current time, hours 

NSTP - step number reference' for known DI and AQ values 
RESTRICTIONS : 

Current geometry must agree with that of NSTP. 

CALLING SEQUENCE : 

CALL STFAQ (TRUEAN, TIMEPR, NSTP) 

NOTE : 

If TRUE AN. GT. 0. , time is computed from TRUEAN; otherwise TIMEPR is passed 
directly to current step data storage. 


None 

None 

None 
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SUBROUTINE NAME : QODATA 

PURPOSE : 

This subroutine used to define the absorbed heat output format to 
be obtained from the subsequent QOCAL execution. 


DEFINITIONS : 


Variable Names 


Default Value 


NSARRY 

NTMARY 

QOTAPE 

QOPNCH 

QOAMPF 

QOFMPF 

QOTMPF 

QOTYPE 


IQOCOR 


array of step numbers where absorbed Q data 
is stored. Options: array name, 3HALL 
thermal analyzer time array number (Q arrays 
numbered consecutively from NTMARY + 1) 

BCD tape output flag. Options: 4HTAPE, 2HN0 

punch output flag. Options: 3HPUN, 2HNO 

area multiplication factor 
energy multiplication factor 
time multiplication factor 

type of output flag- Options: 3HTAB for Q vs 

time tables, 2HAV for orbital average Q data, 
4HB0TH for both 

step number of correspondence table 


3 HALL 

1 

2HN0 

3HPUN* 

1.0 

1.0 

1.0 

4HB0TH 


Current step 


RESTRICTIONS : 

Current geometry definition must agree with geometry of all steps 
in NSARRY, 


NOTES : 

Sort is made to obtain monotonically increasing time array. Trape- 
zoidal-rule average made for orbital average heat tables. 

QOAMPF applies only to areas on thermal analyzer subroutine call output. 
QOFMPF applies only to heat flux array output. 

QOTMPF applies to time array output and to value of period on subroutine 
call output. 

CALLING SEQUENCE : 

CALL QODATA (NSARRY, NTMARY, QOTAPE, QOPNCH, QOAMPF, QOFMPF, 

QOTMPF, QOTYPE, IQOCOR) 

-'Defaults to 2HN0 at JSc/Univac. 
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SUBROUTINE NAM : SFDATA 

PURPOSE: 

This subroutine is used to define configuration names on shadow- 
factor input (SHADI) and output (SHADO) tapes. 

DEFINITIONS : 

Variable Names 

NAMEI - name of configuration identifying 

desired file on SHADI tape (Hollerith) 

NAMEO - configuration name stored on SHADO tape 
file being generated (Hollerith) 

RESTRICTIONS : 

None 

NOTES : 

1. If SFDATA is not called prior to an SFCAL execution, NAMEO 
defaults to the current step number. 

2. A call with NAMEO undefined; i.e., CALL SFDATA (NAME ,0) , equates 
NAMEO and NAMEI. 

CALLING SEQUENCE : 


Default 

None 

a. STEPN^ 

b . NAMEI 


CALL SFDATA (NAMEI, NAMEO) 
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SUBROUTINE NAME : PLDATA 

PURPOSE : 


This subroutine defines parameters necessary to execute the data plotter. 


DEFINITIONS: 




Variable Name 

Description 

Options 

Default 

T.PLUNT 

Plot data flag 
(a composite 
Hollerith word) 

Letter 1; A - Absorbed 
I - Incident 
Letter 2: F - Fluxes 
R - Rates 

Letters 3, 4, 5, & 6 (as 
required) 

S - Solar 
A - Albedo 
P - Planetary 
T - Total 
ALL - All 

None 

IPLSN 

Identifies steps 
to be plotted 

A. 3HALL 

B. Array of step 
numbers 

3HALL 

IPLNA 

Identifies nodes 
to be plotted 

A. 3 HALL 

B. Array of node 
numbers 

3HALL 

PLCRVF 

Flag for curve- 
fitting 

3HYES, 2HN0 

3HYES 

PLLABX 

Plot label X 

Array name (array length 
28 characters max.) 

Blanks 

PLLABY 

Plot label Y 

Array name (array length 
28 characters max.) 

Blanks 

PLTIT1 

Plot label title 
line 1 

Array name (array length 
58 characters max.) 

Blanks 

PLTIT2 

Plot label title 
line 2 

Array name (array length 
70 characters max.) 

Blanks 

PLXMPF 

X-axis multiplying 
factor 

Real no. 

1.0 

PLYMPF 

Y-axis multiplying 
factor 

Real no . 

1.0 
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RESTRICTIONS: None 


NOTE : 

a. Examples of IPLUNT: 

3 HARP; plots absorbed rates, planetary 
5HIFALL; plots all incident fluxes 

5HAFSAP; plots solar, albedo and planetary absorbed fluxes 

b. Any set of dependent- and independent-variable data pairs may be 
plotted if IPLUNT ■= 1 and the data are written to disc/drum unit 1 
in advance (reference Section 5.1.3) 

CALLING SEQUENCE : 

CALL PLDATA (IPLUNT, IPLSN, IPLNA , PLCRUF , PLLABX, PLLABY , PLTIT1, 
PLTIT2 , PLXMPF, PLYMPF) 
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SUBROUTINE NAME: 


DICOHP 


PURPOSE : 


This subroutine is used to define logic used in subsequent DICAL 
execution . 

DEFINITIONS : 

Variable Names Options Default 


ISOLFL - solar flux 


IALBFL - albedo flux 

compute/ stuff 
flag 


a. 4HZER0 - zeros out solar 
flux for all nodes 

b. 0 (integer) - results 
in computation of solar 
fluxes 

c. STEPN (integer step 
number) - stuffs solar 
fluxes from STEPN into 
current step storage 


0 (compute) 


Same as for ISOLFL 


0 


IPLAFL - planetary flux Same as for ISOLFL 0 

compute/ stuff 
flag 


RESTRICTIONS : 


None 


NOTES : 

1. Compute/stuff flags are overridden by the planet shadow. 
Nonzero solar or albedo fluxes will never be stuffed into 
storage for a point within the planet shadow. 

2. Failure to call DICOMP prior to a DICAL execution results 
in default values for all three flags. 

CALLING SEQUENCE : 


CALL DICOMP (ISOLFL, IALBFL , IPLAFL) 
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SUBROUTINE NAMES : DITTP, DITTPS 

PURPOSE : 

These subroutines read data from a trajectory tape and define space- 
craft/heat source parameters through subroutine DIDT2. DITTP is called 
initially in order to define planetary parameters and position the tape for 
subsequent time points. DITTPS is used to update time and attitude/position 
data. 


DEFINITIONS: 


Variable Names 

TIME - mission time 

ITYPE - identifier for special event record 

PLANAM - name of orbit-centered planet (if applicable) 
(ref 0RBIT1) 


IDWDN 

FIDEN 

NTIM 

NTYPE 

NCLPL 

NGOPL 

NCLS 

NCOS 

nrad 

NWOR 

ALTMF 


number of word FIDEN in identification record 


file identification word 


number of time word in information record 
number of word ITYPE in information record 


number of word containing clock angle-to- 
planet vector 

number of word containing cone angle- to- 
planet vector 


number of word containing clock angle-to- 
sun vector 

number of word containing cone angle-to- 
sun vector 


number of word containing .planet center-to- 
spacecraft distance 


number of words in tape record 


multiplying factor to convert units of NRAD 
word to feet 


Options 
Real no. 

Integer 

Hollerith 

Integer 

Hollerith 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 
Real no. 



Variable Names 


Options 


IBOD - one-body /two-body flag integer 

0 - One-body tape 

1 ~ Two-body tape, use body 1 

2 - Two-body tape, use body 2 

DIPNCH - Punch/no punch flag for orbital flux output Hollerith 


RESTRICTIONS : 

a. Calls to DITTPS to update time and type can be made only after 
a call to DITTP is in effect. 

b. The TIME argument in DITTPS calls must be greater than any pre- 
viously defined TIME argument until the tape is repositioned 
through a call to DITTP. 


CALLING SEQUENCES : 

CALL DITTP (TIME, I TYPE, PLANAM, IDWDN, FIDEN, NTIM, NTYPE , NCLPL , 
NCOPL, NCLS, NCOS, NRAD , NWOR, ALTMF , IBOD, DIPINCH) 


CALL DITTPS (TIME, ITYPE) 
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SUBROUTINE NAME : MODAR 

PURPOSE : 

This subroutine changes the area of a designated node, or changes the 
area of all currently active nodes by use of a multiplier. 


Argument Name 

Description 

Options 

Default 

ND 

Node number 
designator 

a. Any active node 
number (integer) 

None 



b. 3 HALL 


AR 

Desired value 
for area 

a. Floating-point 
data value 

None 



b. Area multiplier^ 
(3HALL option 
only) 



NOTE: 


1. When ND - 3HALL, all active node areas are modified according to: 
AREA = AREA*AR. 

RESTRICTION : 

Call not valid prior to geometry definition through calls to BUILDC 
and ADD. 

CALLING SEQUENCE : 


CALL MODAR (ND, AR) 
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SUBROUTINE NAME : MO DPR 

PURPOSE : 

This subroutine modifies the diffuse infrared emissivity and/or 


the diffuse solar 

absorptivity of 

a designated node. 


Argument Name 

Description 

Options 

Default 

ND 

Node number 

Any active 

None 


designator 

node number 


ALPHA 

Diffuse solar 

a. 0. < DV< 1. 

None 


absorptivity 

b. DV < 0 . 


EMISS 

Diffuse IR 

a. 0. < DV< 1. 

None 


emissivity 

b. DV<0 . 



NOTE : 

1. If ALPHA<0. or EMISS<0. , current values are not changed. 
RESTRICTION : 

Call not valid prior to geometry definition through calls to BUILDC 
and ADD „ 

CALLING SEQUENCE : 


CALL MODPR (ND, ALPHA, EMISS) 
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SUBROUTINE NAME : MODTR 

PURPOSE: 


This subroutine modifies the solar and/or infrared transmissivity 
of a designated surface. 

Argument Name Description Options Default 


ISR 

TRANS 


IRANI 


Surface number 

designator 

Solar transmissivity 


IR transmissivity 


Any active 
surface number 

a. 0. < DV< 1. 

b. DV<0. 1 

a. 0. < DV < 1. 

b. DV < 0 . 1 


None 


None 


None 


NOTES : 

1. If TRANI<(0. or TRANS<(0. , current values are not changed. 

2. Transmissivity changes affect entire surface. 

RESTRICTION: 


Call not valid prior to geometry definition through calls to BUILDC 
and ADD. 


CALLING SEQUENCE : 


CALL MODTR (ISR, TRANS, TRANI) 
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SUBROUTINE NAME : MODPRS 

PURPOSE : 


This subroutine modifies the solar and/or infrared specular reflect- 
ivity of a designated node. 


Argument Name 

Description 

Options 

De f au 1 1 

ND 

Node number 

Any active 

None 


designator 

. node number 


SPRS 

Specular reflectivity. 

a. 0, < DV < 1. 

None 


solar 1 

b. DV<0. i 


SPRI Specular reflectivity, a. 0. K DV 1. None 

infrared .. 

b. DV<0. L 

NOTES : 

1. If SPRI<0. or SPRS<l0., current values are not changed. 
RESTRICTIONS : 

1. This call applicable only to nodes defined as specular reflectors 
in the surface data block. 

2. Call not valid prior to geometry definition through calls to BUILDC 
and ADD. 


CALLING SEQUENCE: 


CALL MODPRS (ND S SPRS, SPRI) 
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SUBROUTINE NAME : MODSHD 

PURPOSE : 

This subroutine modifies the SHADE/BSHADE flags for a designated 
surface . 


Argument Name 

Descript ion 

Opt Ions 

Default 

ISR 

Surface number 
designator 

Any active 
surface number 

None 

SHADE 

’’Can shade*' flag 

FF, DI, BOTH, 
NO, 0 1 

None 

BSHADE 

"Can be shaded" flag 

FF, DI, BOTH, 
NO, O 1 

None 


NOTES : 

1. If SHADE or BSHADE data values are zero, their values are not changed. 

2. Shade flag changes affect entire surface. 

RESTRICTIONS : 

Call not valid prior to geometry definition through calls to BUILDC and 

ADD. 

Call not applicable to shadower-only surfaces. 

CALLING SEQUENCE : 


CALL MODSHD (ISR, SHADE, BSHADE) 
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SUBROUTINE NAME : GBAPRX 

•PURPOSE: 


This subroutine calculates grey-body radiant interchange factors using 
an approximate relationship and stores the results in data storage. 


Argument Name Descript ion 

IGBSFF Step number for 

form factors 

GBWBND Waveband definition 

name 

NOTE: 


Options 


Integer 


2HIR, 3HS0L 
4HB0TH 


Default 


Current 
step no. 

4HB0TH 


Input zero for default action. 
RESTRICTIONS : 


None . 


CALL GBAPRX (IGBSFF, GBWBND) 



D-32 


SUBROUTINE NAME : RCDATA 

PURPOSE : 

This is a user-called subroutine that defines the parameters used in 
RCCAL for the condensation and output of radiation conductors (RADKS) . 

VARIABLE DESCRIPTIONS AND DEFAULT VALUES: 


Variable 

Description 

Default Value 

IRCNGB 

Step number reference for infrared grey- 
body factors 

Assumes current 
step 

RCPNCH 

Punch/no punch flag. Options: 3HPUN, 2HN0 

3HPUN 

RCMIN 

Minimum value that will result in a 

valid RADK 

0.0001 

IRCCN 

Initial radiation conductor number 

1 

RCSP 

Flag for calculation of RADKS to space. 
Options: 5HSPACE , 2HN0 

2HN0 

IRCNSP 

Space node number 

32767 

SIGMA 

Stef an-Bol&zmann constant 

X.713E-9 

RCAMPF 

Area multiplying factor 

1.0 

RCTAPE 

Flag to write RADKS to BCD tape. Options: 
4HTAPE, 2HNO 

2HN0 

RFRAC 

Significant radiation fraction: radiation 

conductors of a node to be left intact 
divided by the sum of the node conductors 

None 

NERN 

Effective radiation node (ERN) number 

None 

I PRIME 

Array name for array of primary MESS node 
numbers and special node numbers 

None 

ISECND 

Array name for array of secondary MESS node 
numbers 

None 
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RESTRICTIONS : 

RCDATA must be called prior to RCCAL execution since all of the variables 
are not defaulted. 

Current model geometry must agree with that of step IRCNGB. 

IPRIME and ISECND arrays must be input in the array data block to 
specify MESS node pairs and special nodes. IPRIME contains a list of all 
primary MESS nodes and all special nodes in that order. ISECND contains a 
list of all secondary MESS nodes in IPRIME. 

CALLING SEQUENCE : 

CALL RCDATA (IRCNGB, RCPNCH, RCMIN, IRCCN, RCSP, IRCNSP, SIGMA, 

RCAMPF, RCTAPE, RFRAC, NERN, IPRIME, ISECND) 
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SUBROUTINE NAME : ADSURF 

PURPOSE : 

This subroutine functions to add an adiabatic "closure" surface to the 
problem geometry and adds the pertinent form factors to the form factor 
matrix. 

Parameter Description 

BCSN Name of a block coordinate system containing the "closure" 

surface 

FFSN Step number under which desired form factor matrix is stored 

RESTRICTIONS : 

Block coordinate system BCSN must appear in the surface data block with 
one and only one surface. This surface may be of any type and dimension, but 
must be completely defined, including the surface properties desired for the 
"closure" surface. 

Subroutine ADSURF may not be called within or prior to step FFSN. 

The geometry in effect when ADSURF is called must include that in effect 
for step FFSN, plus BCSN. 

CALLING SEQUENCE : 


CALL ADSURF (BCSN, FFSN) 



SUBROUTINE NAME: FFNDP 


PURPOSE : 

This subroutine is used to obtain a node number array, punched on 
cards in format used in form factor and flux data block. 

RESTRICTIONS: 


None 

CALLING SEQUENCE: 


CALL FFNDP 
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SUBROUTINE NAME : TAPELS 

PURPOSE : 

This subroutine is used to obtain a listing of data on the BCDOU tape. 
VARIABLE NAME : 

N is the number of files to be listed. 

RESTRICTION : 

Call valid only after BCD output data has been written to BCDOU tape 
from RKCAL, RCCAL, and/or QOCAL executions. 

NOTE : 

If N is greater than the number of files on BCDOU and the user has not 
put an end of file on BCDOU from the operations data block, the run will 
abort . 

CALLING SEQUENCE: 


CALL TAPELS (N) 
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SUBROUTINE NAME : NDUPCK 

PURPOSE : 

This subroutine is used to determine if any node number duplication 
exists in the currently effective problem geometry. 

RESTRICTIONS: 


None 
NOTE : 

Should be called just after the BUILDC and ADD series that defines a 
geometry with doubtful node numbers. If duplication is encountered, 
problem will abort with appropriate message(s) . 

CALLING SEQUENCE ; 


CALL NDUPCK 
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APPENDIX E 

SEGMENT DESCRIPTIONS 

Segment Name Page 

NPLOT, OP LOT , PLOT E-2 

FFCAI E-3 

DICAL E-4 

SFCAL e-5 

RKCAL, GBCAL, RCCAL . . . . e-6 

AQCAL E-7 

QOCAL E-8 



SEGMENT NAME: 


NPLOT 


PURPOSE : 

This segment generates pictorial plots of nodal surfaces. 
RESTRICTIONS : 

None 

CALLING SEQUENCE : L NPLOT 


SEGMENT NAME : OPLOT 

PURPOSE : 

This segment generates pictorial plots of the spacecraft in orbit. 
RESTRICTIONS : 

None 

CALLING SEQUENCE : L OPLOT 


SEGMENT NAME : PLOT 

PURPOSE : 

This segment generates function vs time plots of absorbed 
and incident heat rates and fluxes. When used in conjunction with 
operations block FORTRAN that writes data to a plot data unit, 
this segment provides general x vs y plot capability. 

RESTRICTIONS : 

Reference Subroutine PLDATA 
CALLING SEQUENCE : L PLOT 
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SEGMENT NAME : FFCAL 

PURPOSE : 

This segment calculates all form factors for the active configura- 
tion defined by previous calls to BUILDC and ADD. 


CALLING SEQUENCE : 


L 


FFCAL 
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SEGMENT NAME : DICAL 

PURPOSE i 

This segment computes solar, planetary, and albedo irradiation 
incident on spacecraft nodes. 

RESTRICTIONS ; 

Call valid only after previous calls have been made to define 
spacecraft geometry, location in space, characteristics and distances 
of heat source bodies, and computation accuracy parameters. 


CALLING SEQUENCE : 


L 


DICAL 
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SEGMENT NAME : SFCAL 

PURPOSE : 


a. Segment computes analytically and stores on tape tables of internode 
blockage (shadow) factors for use in direct irradiation calculations. 

b. When a complete shadow factor tape supplied, segment is executed in 
order to pass shadow tables into program storage and initialize DICAL 
to compute irradiation using shadow tables. 

RESTRICTIONS : 


None 


CALLING SEQUENCE : 


L 


SFCAL 



SEGMENT NAME: 


RKCAL 


PURPOSE : 

This segment computes radiation conductor values and punches (at 
user's option) output data in thermal analyzer format. Output card 
images are printed. 

RESTRICTIONS : 

Call valid after spacecraft geometry is defined and matching form 
factor matrix is computed. 

CALLING SEQUENCE : L RKCAL 


SEGMENT NAME : GBCAL 

PURPOSE ; 

Segment computes and stores grey-body factor matrix. 
RESTRICTIONS : 

Same as RKCAL 

CALLING SEQUENCE: L GBCAL 


SEGMENT NAME : RCCAL 

PURPOSE : 

This segment computes radiation conductors, simplifies and 
condenses these conductors using the ERN and MSS techniques, and 
provides output in punched card and/or BCD tape form. 

RESTRICTIONS : 

Same as RKCAL 


CALLING SEQUENCE: 


L 


RCCAL 
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SEGMENT NAME ; AQCAL 

PURPOSE; 

This segment computes absorbed beat rates in two wavebands, 
accounting for diffuse reflection. 

RESTRICTIONS ; 

Appropriate direct irradiation, grey-body factors, and surface pro- 
perties must be in system storage. 


CALLING SEQUENCE ; 


L 


AQCAL 



SEGMENT NAME: 


QOCAL 


PURPOSE : 

This segment accesses absorbed flux data and generates orbital 
average and absorbed flux vs time arrays. Arrays are output in 
thermal analyzer format on cards or BCD tape, 

RESTRICTIONS: 


None 


CALLING SEQUENCE : 


L 


QOCAL 
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APPENDIX F 

RADIATION CONDENSER SEGMENT THEORY. 


V 
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A. BASIC CONCEPTS 


The Multiple Enclosure Simplification Shield (MESS) technique 
and the Effective Radiation Node (ERN) technique are independent 
and can be discussed separately. Consider an N-node radiative err 
closure that forms a section of a complex thermal model. The 
temperature of node i is a function of thermal radiation coupling 
and the applied heat load, (assume that heat loads resulting 
from conduction and convection are included in Q^). The steady- 
state temperature of node i is then given by 

* 

<T A ,. 1 

j=l ‘ J ~ 


T. = 
1 


r n * . n 

VVj . + w S^Vij 


% 


(i) 


B . ERN TECHNIQUE 


In applying the ERN technique, the enclosure radiation conduc- 
tors for the ith node are divided into ? i primary and N-P i second- 
ary couplings. The summation term in the numerator of Equation 
(1) can then be written as follows: 



The number of radiation conductors can be reduced by arranging the 
conductors in decreasing order of the conductor value (A^F ) and 
replacing the secondary coupling summation of Equation (2) with a 
single conductor coupled to an ERN. That is, 


In Appendix F, the letter F shall denote the grey-body factor,^. 
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ERN 


(3) 


The ERN temperature is calculated by the thermal analyzer program 
as a steady-state node temperature based on a fourth- power , conduc- 
tor-weighted average of the enclosure node temperatures using the 
secondary conductors. 

r n n 


ERN 
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Using the relationships of Equations (2) and (3) , the approximate 

ith node temperature can be written from Equation (1) as a function 

of the ERN temperature. 
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C. APPLICATION OF THE ERN TECHNIQUE 


The significant radiation fraction defined by the relationship 
P. P, 

RFRAC = > ; /tA.F.. /V.^A.F. . - Y. F„ /e. (6) 


’ E <rVlk/£<rVij ' £ F ik/h 

k-1 / j=l k=l / 

is specified by the user. The number of primary conductors, P^, 
is determined by summing conductor values for a given node until 
the sum is greater than the fraction RFRAC of the sum of all con- 
ductors to the node. That is, 
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P. N 

y a (Y- A . F > RFRAC* Y 6~ A.F. . 

u 1 lk £-* iii 

k^l j-1 

All primary and reverse direction conductors are flagged to be 
used intact. The secondary conductors for each node are summed to 
determine the conductor value for the node-to-ERN coupling. 

Since the error in the approximate temperature is a function of 
the enclosure temperature band, the ERN technique results can be 
improved if nodes that deviate significantly from the average 
temperature of the enclosure are not coupled to the ERN. These 
analyst-defined nodes are referred to as special nodes. 

The percentage reduction in enclosure conductors and subsequent 
network error as a result of applying the ERN technique are control- 
led by the analyst’s selection of an RFRAC value consistent with the 
known accuracy of problem parameters (enclosure geometry, surface 
optical properties, etc). 

Experience has shown that the greatest percentage reduction in 
conductors results for enclosures with more than 75 nodes, signi- 
ficant shadowing, and iow-emittance surfaces. An RFRAC value of 
0.7 has been found to result in a significant reduction in conduc- 
tors with acceptable error for typical radiation enclosures. 

D. MESS TECHNIQUE 

The MESS technique provides the analyst with a means of divid- 
ing a radiation enclosure into an arbitrary number of subenclosures. 
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MESS node pairs are defined by the analyst at the interface be- 
tween subenclosures as two planar surfaces with the property of 
absorbing and emitting all energy incident upon them (black sur- 
faces) . Consider an N-node subenclosure, n, as shown in Figure 
F-l, where the subscripts r and r' refer to the MESS node pair of 
the nth and jth subenclosures, respectively. Temperatures in n are 
affected by T , which represents the average thermal effect of 

r’LD ub . 

r ■ • 

the j subenclosure nodes on the nodes of n. The primary conduc- 
tors of Equation (2) include conductors to MESS nodes. For a 


general subenclosure, n, with R interface MESS nodes, the primary 

n 

radiation coupling summation for node i is 


^ 1 C ~ A i F ik T k -I, ^ A i F i r T I-'E3S j _, + ^ 


* Vi* t a 



change matrix for each subenclosure. 



modularized enclosure 




Ftgure F-l MESS Techmque One-May Conductors 
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The approximate temperature of the ith node is obtained from 
Equation (5), using Equation (8), as 

4 


- R 


T. 

t 


P. 

n 4 ’h 

> a~A.F T / tc A.F. „ 

i r ir MESS + 1 ^ •£ 
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N 

^S.+l ^ A i F ih^ X ERN + 

+ z <ta f « + v 
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R 
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X=R +1 

t> 


h=P i +l 


«- A tV} 


(10) 


The error in h is a complex function of the percentage of 
ERN secondary conductors, temperature band of the subenclosure 
nodes, and the number of subenclosures. In a variety of problems 
studied, the error has been found to be negligible. 


E. APPLICATION OF THE MESS TECHNIQUE 


Generation of MESS one-way conductors from the subenclosure 
radiant interchange matrix requires that the analyst specify the 
interface MESS node pairs. As node conductors are generated, 

MESS nodes are flagged and appropriate one-way conductors are 
generated for use in the thermal analyzer program. 

The location of MESS node pairs in an enclosure is influenced 

by: 

a. the number of subenclosure surfaces; 

b. geometric considerations; 
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c. expected thermal gradients; 

d. the number of analysts available to work on the enclosure. 
Optimum reduction in form factors and conductors occurs in large 
enclosures divided such that the subenclosures contain approximately 
equal numbers of nodes. For enclosures divided into two approxi- 
mately equal subenclosures, up to 50% reduction in the number of 
form factors and conductors can be expected. 

F. ERN/MESS APPLICATION 

The ERN and MESS techniques can be applied separately or simul- 
taneously as the particular problem dictates. When they are applied 
simultaneously, an ERN is defined for each subenclosure and the 
MESS nodes are considered to be special nodes; that is, MESS nodes 
are not coupled to the ERN. 

G. SUMMARY 

The ERN/MESS technique reduces the number of form factors and 
radiation conductors necessary for enclosure radiation analysis and 
extends the analysis to include enclosures of arbitrary complexity. 
The use of the ERN/MESS technique can result in significant savings 
in time, both for the analyst and the computer. 
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TAPE NAME 

AVAILABILITY* 

NOUT 

PP/P 

D1 

PP 

RIO 

PP 

EDITI 

PP 

EDITO 

PP 

CMERG 

PP 

EMERG 

PP 

RSTRTI 

PP 

RSTRTO 

PP/P 

PNCH 

PP 

SCI 

PP 

SC2 

PP 

SC3 

PP 

CMPL 

PP 

SQNTL 

PP/P 

DIR 

PP/P 

FFR 

PP/P 

GBIRR 

PP/P 

DLSR 

PP/P 

SHADI 

PP 

SHADO 

PP/P 

RTI 

PP 

RTO 

PP/P 

BCDOU 

PP/P 


DESCRIPTION 

Print Output File 

Preprocessor Data Input File 

Random Access Data File 

EDITI Tape 

EDTTO Tape 

CMERGE Tape 

EMERGE Tape 

Permanent Restart Input Tape* 

Permanent Restart Output Tape* 

Punch Output File 

Scratch File 

Scratch File 

Scratch File 

Operations Data Compile File 
Sequential Data File 
Direct Irradiation Restart File 
Form Factor Restart File 
Correspondence Data Input File 
Planet Form Factor Save File 
Shadow Factor Read Tape 
Shadow Factor Write Tane 
Temporary Restart Input Tape* 
Temporary Restart Output Tape* 
BCD Data Output Tape 
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TRAJ 

PP/P 

Trajectory Tape 

USER1 

P 

User File 

USER2 

P 

User File 

GBIRR 

PP/P 

Correspondence Data File 

TQR 

PP/P 

Total Heat Rates, Restart File* 

FF 

PP/P 

Form Factor Data Storage File 

GBIR 

P 

Infrared Grey-Body Storage File 

GBSO 

P 

Solar Grey-Body Storage File 

PLS 

P 

Planetary Form Factor Save File 

TQ 

P 

Total Heat Rates Storage 

SCR1 

P 

Scratch File 

SCR2 

P 

Scratch File 

SCR3 

P 

Scratch File 

RAN 

P 

Random I/O Data File (Equivalent 
to NRIO) 

PUN 

P 

Punch Output File 

DI 

P. 

Direct Irradiation Data Storage 
File 


**PP: Preprocessor; P: Processor 

*Not Currently Used. 
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I. ANALYTICAL DI- VKbOf’MENT 

The assumptions and ground rules and the development ol the 
mathematical equations for di ffuse-p 1 us-specu ! nr radiation 
analysis are presented in this section. 

1 . Assumptions and Groundru1.es 

The following assumptions and g round ru 1 os were used in I tic- 
analytical development presented herein for di ITuse-pl us-spoeu ! nr 
radiation analysis techniques. 

a. All Surfaces are considered to he semi-gray (accounts lor 
absorption and reflection, but no emission in t lie ultra- 
violet portion of the spectrum; accounts lor absorption 
and reflection as well as emission in the infrared portion 
of the spectrum). 

b. Equations are developed for use in analyzing radiation 
enclosures consisting of diffuse, specular, and/or diffuse- 
plus-specular surfaces using an imaging technique. 

c. All surfaces are considered to emiL dil lu.sely and to re- 
flect with diffuse and specular components such that the 
relat ionship 

( f P d + p s f r _ j 
i i i i 

is satisfied. 

d. All surfaces with specular components ol re I'l ec Lance are 
restricted to planar surfaces to simplify .imaging. 

e. Only lirst-order images are considered (that is, no 
images of images or images in images a i'l* generated). 

2. D evelopment of Equations 

The development of equations lor radiation interchange fac- 
tors follows the same, procedure for both L he infrared and ultra- 
violet portions of the spectrum with the only differences being 
in notation. Therefore, only those equations applicable to the 
infrared portion ol the spectrum are developed here. 
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Consider a radiation enclosure consisting of N surfaces. The net; 
heat flux from any one of these surfaces can be represented by 


N 

- o-Z 

3=1 


- T i 4) 


where 5^. is the radiation interchange factor that couples surface i 
to surfade j. 


The method of approach that is applied here in the development: 
of radiation interchange factor (^. .) equations is an extension of the 
method set forth by Gebhart for purely diffuse enclosures (references 
1, 2 and 3. The special utility in this formulation is that it 

yields coefficients which represent the fraction of energy emitted bv 
a surface that is absorbed by another surface after reaching the absorbing 
surface by all possible paths. 


Considering first-order images only, the general equation for the 
Gebhar t-type absorption factors for a diffuse-plus-specular enclosure 
can be written 


j3. . = e.F. . + e. f. . + V /> d F . g . 

j ij j k rj(k) r m 


N N 


d ~ S 


* n A A F I»(k) jS m y i-l. 2. 5-U2,. 


k=l ni=l 


By means of a term by term examination, equation (2) can be interpreted as 
follows : 

The fraction of the energy leaving surface i that is finally absorbed by 
surface j equals the sum of 

a. the energy that goes directly from surface i to surface j and 
is absorbed, 

b. the energy thau goes from surface i to surface j by all possible 
first-order specular reflections and is absorbed, 

c. that fraction of the energy that goes directly from surface i. 
to each of the surfaces in the enclosure, finally arrives at 
surface j by all possible paths, and is absorbed, and 

d„ that fraction of the energy that goes from surface i to each 
of the surfaces in the enclosure by all possible first-order 
specular reflections, thence to surface j by all possible paths, 
and is absorbed. 
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Rearranging the terms in equation (2) yields 

fili “ + ?, K F li(k)] + tA [ F i„ + .S/’J 


k=l 


m=l 


k=r 


im(k)Jr mj 


r h j j — 


( 3 ) 


Equation (3) can ba further simplified by defining an "image factor" 

(0 .) as that fraction of the energy that leaves surface i and arrives at 

surface j both directly and by all possible first-order specular reflections 
such that 

N 


0 ij F ij + k ?j_ A F ij(k) ; 

i = 1,2,... ,N ; j « 1,2,... ,N 


( 4 ) 


Substitution of equation (4) into equation (3) yields 

N j 

. 0. . + p 0. 3 . 

A ij j lj n ^* 1 / m im P m j 

Rearrangement of the terms in equation (5) yields 


(5) 


N 

I 

m=l 


y ( s. - p i>. ) 3 . - 6. 0.. 

^4 ira / m im / mj j ij 


Equation (6) can be represented in matrix form as 

Kj] t/y* 


( 6 ) 


( 7 ) 


where D is an N X N coefficient matrix with general element 

d 

S . , - yO P, 


D. 


1J 


rj 


J 


( 8 ) 


The systems of equations represented by (7) can be solved by matrix 
inversion to obtain the absorption factors ( j$ _^) 

N 

Q . . = ^ d". 1 e .0 . 

f j. j m=l im j mj 


( 9 ) 
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The radiation interchange factors (jF. .) are related to the absorption 
factors (see reference }.) by the expression 




( 10 ) 


and, using the usual arguments^for the conservation of energy, the 
reciprocity relation for the N values of S „ is 




(U) 


The foregoing equations apply to radiation enclosures consisting 
of any combination of diffuse and specular surfaces ranging from totally 
diffuse to totally specular enclosures. 
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1. Univac 1110 - JSC Houston 

a. Binary Interface Tape 

Capability exists to dump all data that exists in out of core 
storage to a binary tape at any point in the execution.- In 
addition, radiation conductors, as output by RKCAL or RCCAL 
may be written to this tape. 

Loading Binary Tape - Subroutine TPLOAD 

When the call CALL TPLOAD (CNAME) is encountered in the operations 
data, all data in out of core storage plus pertinent in-core data is 
placed on the binary tape. This tape is written from unit USER1, so 
this operation requires the word USER1 in the options block. 

The data written consits of the following: 

Node Numbers (One record). 

Node Areas (One record) . 

Surface Optical Properties (One record) . 

After this, all or part of the following are written (obtained 
from out of core storage) as: 

Form Factors (One file). 

Grey-Body Factors (One file per wave band) . 

Incident Flux Data (One file per DICAL execution). 

Absorbed Flux Data (One file per AQCAL execution) . 

Each file written is identified by the configuration name as speci- 
fied by argument CNAME. 

After a TPLOAD call, radiation conductors (as computed by RCCAL or 
RKCAL) may be added to the binary tape by using 5HBTAPE as the 9th 
argument in RCDATA and/or RKDATA and executing RCCAL and/or RKCAL. 
Note the restriction that must be done subsequent to a TPLOAD call. 

b. Subroutine NPRIDS 

This subroutine is used to provide user identification information 
to the 1110 plot package so that plot output finds its way back to 
the user. User name, box number, phone .extension, and project 
number are specified by the following calling sequence: 

CALL NPRIDS (NAMEl , NAME2 , BOX, EXTN , PROJCT) 

Example: CALL NPRIDS (5HR. A., 5HV0GT , 3HM34, 4H2326, 4HF261) 

One to six characters are allowed for each Hollerith argument. 



